
ENTREVISTAMOS 
AL DIRECTOR 
COMERCIAL DE 
SANYO Y AL PAPA 
DE KRYPTON. 



Nuestra primera cassette. 



EL PRIMER 
CONCURSO «MI 
PROGRAMA» YA 
TIENE GANADOR 



También damos los nombres 
de DIEZ VOTANTES PREMIADOS 



Y además casi 40 

páginas de 
programas con 
Test de Listado 



¡POSTER 



Programas 
Sony MSX, para loque 
guste ordenar. 




HIT 3IT 

SONY 



Binary Land 
Driller Tanks 
Stop the Express 

Les Ríes 
La Pulga 
The Snowman 
Cubit 
Pack 16K 
Fútbol 
Kung Fu 

Batalla Tanques 
Mr. Wong 
Xlxolog 

SwfftA 

Buggy 84 
3D Water Drlver 
Plnky Chase 
WeddingBells 
Flghttlng Rlder 



Memoria Ram 4 K 

Creative 

Greetings 

CharacterCollect 

Quinielas y 

Reducciones 

Ensamblador 
Generador Juegos 



Hoja de Cálculo 



Control Stocks 
Contabilidad 
Personal 
Ficheros 
Procesador 
de Textos 
Control Stocks 
Vencimientos 



1.500 
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ESPECIAL REYES - Sale el día 1 de cada i 



LINEA DIRECTA Pá g. 5 

Todas las inquietudes y 
consultas de nuestros lectores. 


Diseñador de sprites pág. 58 
Artista pág. 60 
Cavernous pág. 62 
Pareja pág. 66 


TABLON DE 

ANUNCIOS Pá g 8 

de los lectores. 


MONITOR AL DIA Pá g . 2 8 

En pantalla las últimas 
novedades en el mundo del 
MSX. 


ASALTO A LA 
FORTALEZA Pá g .,o 

Un entretenido juego de 
habilidad. 


LASER DISC Pág 3o 

La aplicación del láser disc 
ofrece unanueva dimensión a las 


EQUIVALENCIAS DEL 
MSX CON SVI 318 
YSVI328 Pá g , 4 

Un artículo que trata de hacer 
«Spectra» con eHvlSX. 


EL PAPA DE 
KRYPT0N Pág .32 

Entrevistamos y presentamos al 
primera cassette. 


MSX 

POR DENTRO Pág 36 

Las entrañas del MSX para que 


EL MSX COMO 

AUXILIAR DE 

LA ENSEÑANZA Pá g 2 o 

Entrevista con José Viladomat, 
Director Comercial de Sanyo.' 


BEE CARD, La tarjeta 
inteligente Pá g .3 9 

Analizamos detenidamente 
cómo es y cómo trabaja la tarjeta 
BC. 


PROGRAMAS 

El Borra pág. 24 
Matemáticas pág. 42 
Poker pág. 54 




o> para MANH 


I 

ATTAN TRANSFER, S.A. 
sandbcrg. 





80 columnas 


Juan Carlos Esteban 
C/. Olióla 56-Urb. Es Pont 
D'Inca Nou 
Palma de Mallorca 
(Baleares) 

berLlTaleí^diri 'me ' íía 
editoriJdTuirevista STARS. 

feditotTde IWÁa y ' de 
MSX CLUB) tan sólo ha 

programa" KRYPTON "que 

Z C Lt^¿! Z ™do'*"ten?Z~s 

tes para M§X que han apa- 

problemas de carga. No po- 
demos solucionar tu proble- 


clear MERGE .nomprogra. 
vtaamlo el ordenador te res- 
ponda OKya estará realíza- 

\\?Wl e iF u u\hi *™~ 

tecla' o 'en Temo de que'Tu 
máquina no disponga^ ella 


en™ "rograma LA PIRA° 
MIDE, en la segunda panta- 
lla no consigo pasar por en- 
cima del pato. ¿Es 
imposible? 

Rafael Molina 
(Hospitalet LL). 

La BEE CARD .P°<j™ 

TsFRMAo rl ÍÑDESCOMP. 
yen AfLesfr™" ca'sfeUe'esTá 

vendiendo eUxce%nte bbro 

MSX). En cuanto a tu pro- 
blema con la pirámide, no te 
desalientes. Seguro que con 
un poco más de praitna ion 
sigues superar esa pantalla. 


Tengo un ordenador SONY 
HB75P y tecleo todos vues- 

jlcinto Santiago Jibero 
Mozoncillo (Segovia) 

Efectivamente existe un car- 
tucho que te permite traba- 
jar con el Display a 80 co- 
h, iiin.is. Se trata del cartucho 
SVI -727 de Speilraeideo. 

afpüb"ico"de P 2 r 3 C 900 ptls"'" 


MALENTENDIDO 


owa^ncTse contc's'ta'' \ T 

aso de Fa re8 re n unta E réarzad1 
poTj.G.^'e^eTnuméro 7 
con el mulo Sistema Opera- 
tivo del MSX. donde a este 
señor no se le responde co- 
mo puede li.ucrse usuario de 

LANd d S comumCilciones 
Daniel Tous 
(Gerona) 

dió'que la red LAN no °e"a 
un club, sino un sistema pro- 
fesional. Esto es: La red 

LAN no es una red de lomii- 

el sentido en que tú lo in- 
terpretas, sino que se trata de 

desta^nterco^ 0 "J" 
MSX para q^JcfueVcomo 

^ r » mos en -Monitor al 


PROBLEMAS 
DE IMPRESION 


Tengo un ordenador HIS75P 

En el 'programa Tn DIA N A - 
l'OI iS me da un error en la 
linea SIO. Repaso el propia 
ma con LISTy veo efectiva- 

gaTd? Tomo^des^ndílim 
odauSm) 

Juan Antonio M «« ín « 

al £™«4rT¿o 


FUSION 
DE PROGRAMAS 


CT E BASIC r Vía memoria! 
pero cuando en la memoria 
existe un programa en len- 
R<"K ""quina, ''ste perma- 
nece invariable aunque se 
ejecute NEW. ¿Como debo 
hacer para borrarlo? 

Pedro J. Hondeville 
Marenzi 
Las Arenas (Vizcaya) 
El modo de utilizar MERGE 

var^ún^reqlüsUof'c^ndo 
ASCn^s' 'decir ' 'utilizando 

g^amJ'"%hñlr'ní 0 cafnli' 


LIBRO DE JUEGO 


Hace unos días compré un 
Speetravideo SVI 72$ y un 
libro de juegos de MSX edi- 
tado por^ Indcscomrj. Pues 

blemas con los juegos 1 (?, 11 
y 12, por lo que Tes acom- 

encuemren°e'l'faFlo ra ^ ^ 
Alfredo M £™™ 

te dirijas a Indescomp, \v. 
del Mediterráneo 9, 28007 


COMANDO COPY 


Ante la ausencia de coman- 
do COPY en MSX les ruego 
tjue me di|an si hay alguna 

pues sería muy Interesante. ' 

Francisco Es.ljj'""" 1 

El comando COPY existe en 
BASIC para su empleo con 


STARS 


BEE CARD 


en la reTstrSTATs^umero 


ÍraHala^ta Ie'e CARdV 



Editorial 



Hemos querido saludar al año nuevo con este 
número doble, complaciendo de este modo 
numerosas peticiones de nuestros amigos lectores 
que han querido aprovechar el tiempo libre de estas 
fiestas navideñas entreteniéndose y ampliando sus 
conocimientos junto a sus ordenadores. Sin 
embargo otro también ha sido el motivo que nos ha 
impulsado a la realización de este número especial, 
y es la seguridad que precisamente durante estas 
fiestas habrán sido muchos los que hayan estrenado 
ordenador y ¡cómo no! un flamante MSX para 
venir a sumarse a nuestra legión de amigos lectores. 
Por ello vais a permitirnos que desde estas páginas 
demos la bienvenida a la familia MSX a los nuevos 
usuarios de este superrazonable estándar. A ellos, y 

vuestttfecáÓJB yaque MSX es, a ojos vista, el 
sistema que ha de imponerse en este año que 
inauguramos. Nos sobran razones de las que ya 
hemos hablado y, en las que no pensamos insistir, 
que apoyan nuestra afirmación. Sin embargo, 
existe una razón de peso que nos obliga a 
proclamar los cuatro vientos este boom del MSX y 
esta razón la conocemos directamente pues somos 
nosotros los editores, los que podemos comprobar 
como mes a mes nuestras revistas van 
incrementando sus ventas y, como no, sus 
suscriptores. Ello sólo puede obedecer a una razón 
y es, tal como hemos dicho que el MSX se ha 
impuesto en el mercado, a lo cual no lo dudéis 
hemos contribuido con el granito de arena de 
nuestro entusiasmo, reforzado con el palpable 
interés que vosotros lectores habéis demostrado 
hacia nuestras publicaciones tanto MSX CLUB DE 
PROGRAMAS como a su hermana mayor MSX 
EXTRA. Y dado el tono festivo y conmemorativo 
con el que queremos celebrar la entrada de este año 
del MSX, queremos desearos que en él se vean 
cumplidas vuestras esperanzas... y sobre todo que 
los Reyes Magos os traigan software y periféricos 
suficientes para que paséis un montón de ratos 
agradables junto a vuestro ordenador, ratos en los 
que nos gustaría acompañaros mediante el vehículo 
de nuestras publicaciones. Gracias a todos. 

MANHATTAN TRANSFER 



Línea directa 





José Luis Enrique Sánchez, 
Rosa ( «has (Granada), Juan 
Isidro Fernández (Buréelo- 
nu) y unu lurga lista de ami- 
gos. Todos ellos podrán lógi- 

Lu referencia del adaptador 

íe™altl d Z C S^ectra^íÁ re en 
España, aún nu /o- comercia 
liza. En Francia, la com- 
pañía Screpe de París sí lo 
hace a un precio de 1.100 F. 
Lamentablemente -:olo tene- 
mos ^ su teléfono: (1) 


PROBLEMAS 
DE AJUSTE 


Tengo un Spectravideo 728 
Srados eTsCREEN 2 °o % 

Santiago Julián Saz 

Verifica el ajuste de tu tele- 
visor o monitor, pues allí 
puede estar la causa. Si no es 
asi lleva tu ordenador al ser- 


USUARIOS DEL 
SVI-318 Y SVI-328 


TARJETA 
INTELIGENTE 


JS í ^*abréi S V! er s em1 

béfs suYomenckftura y dón- 
jero°os SC a "raaecería q'ue'me 
También 3 aprovecho la oca- 

dudacTun 'dub^MSX y 
Spectravideo. Os agradezco 

^os a desToTue V coTtinu a éís U en 
Fernando Loscertales Cases 

Ún¿ja"d/hsMSx'a "pleno, 

rá ó* los usuarios de Spec- 
trum, Commodore y otros 
sistemas sin mayor futuro. 
Pero para que no sufras en 

^nuestru "reíl 0 ta C —FeZ?°co 
]. Alomo—, quien debuta 

7e"uspTsfbÜiZTefde a cl r m- 
patibilldad de los Spectravi- 
deo Syi 328 con el 

{^eT-BarTelona], 'sÍntágo Se- 
ga» Merino (que nos eseri- 


coTreume'lité e, los Pe us , ua?ios 

gustaría muchísimo que 

bHcáSs^reporM^en esta 

José Luis Roiano 
Alcorcón (Madrid) 

Cur^EnconsecZnc¿te da- 
mos lu doble alegría de pu- 


TEST DE LISTADO 


"JbicSreSHm^í 

lito resuítado S ^ ^ 
También desearía me indica- 

d ÍSÍ^Si? Te 
voz para MSX. 

Manuel Carres 
Agramunt (Lérida) 

lles U tfop7o°rama defeí'7e 



jjd) ?Íl. L (983) E ^ C 13 ( 80." Rcf. 



A LC A iNTA R1 L lT° Mía rci. 



Zaragoza. Tel. (IVojSs If^ 



( one,o llo,,,^ v Shark Hunter 
por Kl Samurai. Gosthbuster, 

Vib Lup. c.iris f,. ; < r„. 

m-¡.m Je Ardo/ ( .M.id rid }. 



h\t\- Reí' <?P3 BCChr ' 

< .onbio iíil-os Spc-ctravídco 

.<IS WS i ,U- MSN Anwl 

Buendía. Llamar al (91) 

<•"<• S -M". Reí Cl'i 

Vendo «nuche* MSJLUni- 



Alcobendas ^(Mad^idj.^ Fer- 

programas de gestión y usua- 
r«» A MSX. CP3. 



BOOGA 
BOO 



¡Haz saltar la pulga hasta 
lo mas .lito v podras oan.tr 
hasta 125.000 pts. en pre- 

MSX CLUB DE PRO- 
CHAMAS t MIM) (,A 
MI S 1 SPAÑA.S.A. te des- 
alían .1 i|iio ¡llegues ion lioo- 
ga Boo y ganes. Booga Boo 

profundidades de una cueva 
h.lNit.ul.i por un peligroso 



perficie superando los 80 n¡- 
y logrando la máxima 'pun- 



111a pantalla jo l¡ ; I'...,. 

b) Una fotograba del ta- 
blero de puntuación ion [11 




Clón. telctnno , ,.| ,,»»,„ 
de relcrcncia Je Muid (,a 



dacticodemtorm.iiK,, MSX. 



silva íl'd.y'Arp,, Speo'do, 
Publications, Atabaster Pass- 

S.A. y Manhattan Transferí 



paña, que figura en 
tula original. 

i. t¿TJÓZXZI?mí?¿tm mimen 



PROGRAMAS 



1530 .... 
.540 FOR B*=48 TO 160 STEP 8 



1550 PUT SPR] 

1 1618 
1570 NEXT B* 
1580 STRIGC0! 
1530 ZS=f12 
3- PUT SPR] 



1650 PUT SPR] 



TE 0.CZ*.BS;3,5,4 



TO L 



YUW* 3 =Y* C U* D -4 : S* C W* ) =-S* C W* 5 + 1 



i. CX*CU)S£O.YS£CUJS!DD. 
<42 THEN GOSUB 1860 



3 ST«=STICKC03 
1690 ON STÜ GOTO 1700.1700.1710.176 
0.1700.1730 
1700 RETURN 

1710 IF n*>=216 THEN RETURN 
1720 rt*=rl*+4 ¡RETURN 

" M5í<=24 THEN RETURN 
1740 rt*=ri*-4¡ RETURN 
1750 SPRITE OFF:BEEP 
1760 FOR Q*=l TO 12 

" "~ X*CQ!S3<ZSí+6 AND X*CQ*3>Z*-e 
1790 

1780 NEXT QS: ¡RETURN 
" "■«0*5-160 

JT SPRITE Q*.CX*-CQ*-3. 1603. 15. 
1810 Q*=12¡NEXT Q*-¡B%=160 
1820 SCS=SC*+10 

1830 LOCATE 9. 1 ¡PRINT USING"###tt" :S 
1840 IF SCS>=L**500 THEN L*=LS:+1 ¡US 
¡RETURN 1380 

1850 SPRITE ON¡STRIGC03 ON ¡RETURN 
1860 STRIGC03 OFF ¡SPRITE OFF 
1870 I=L* 

3 FOR 1=1 TO 15 

3 S*CU*3=-S*CW*3+1 
1900 PUT SPRITE W*. CX*CW*3 .403 . I.SS 

310 FOR J=l TO 50 ¡NEXT J 
1920 NEXT I 

1930 PUT SPRITE WSí. C XS C WS 3 , 40 3 . 15.3 
3 FOR J=l TO 500 ¡NEXT J 



1950 U 
1960 



THEN R 
LUUAIE 28.ÜPR 
LOCATE 9.21 ¡PR 



i 1380 



3 LOCATE 3. : 
2040 LOCATE 8. I 



3 LOCATE 9,20¡ 



TO 1000 ¡NEXT 



2110 X*=120¡Y*=160¡S*=RNDC13*2 
2120 CLS ¡GOSUB 2740 

2130 ON SPRITE GOSUB 2490 ¡SPRITE ON 
2140 ON INTERUAL=50 GOSUB 2400 ¡ INTERUAL 
ON 

2150 PUT SPRITE 0. CM*.N*-83.5.4 
2160 PUT SPRITE 2, Cri2*. NS:3 .1.2 
2170 IF M*=X* THEN GOSUB 2220 
""i IF H*:>X* THEN m=ri*-L% 
2190 IF n%<X% THEN MX=ri*+L* 
2200 GOSUB 2270 
2210 GOTO 2150 

2220 FOR B%=48 TO 160 STEP 2 
2230 PUT SPRITE 0. Ctl*. B« . 5. 4 
2240 GOSUB 2270 
2250 NEXT BS 
2260 RETURN 
2270 STX=STICKC03 

2280 ON STS GOTO 2310.2300.2340,2300,236 



0.2300.2380 
2290 PUT SPRI 
""i RETURN 
2310 



l. CX*,V 



3. 15. S% 



1 ¡SX = 



H GOSUB 2550 



0 GOTO 2290 
2340 IF XX>=216 THEN RETURN 
2350 XÜ=XS+1 ¡GOTO 2290 
2360 IF YS> = 160 THEN RETURN 

' 3 YX=Y%+1 ¡SX=-SX+1 ¡GOTO 2290 
2380 IF XS<=24 THEN RETURN 

0 X*=X*-l¡GOTO 2290 

2400 T*=T*-1 

~U0 LOCATE 9.1 ¡PRINT USING "###" ¡TS 
2420 IF TS<=0 THEN 2440 
2430 RETURN 
2440 INTERUAL OFF 
" 3 LOCATE 8. 3 ¡PRINT "FUERA DE TIEMPO" 
3 FOR 1 = 1 TO 1000¡NEXT I 
2470 US=US-1 

3 IF U*>0 THEN RETURN 2100 EL SE 1970 
3 SPRITE OFF ¡INTERUAL OFF 
2500 FOR BS=YX+4 TO 160 
2510 PUT SPRITE 1.CXX.BX3.15.2 
2520 PUT SPRITE 0. Ctl*. BX-10 1 . 5, 4 
2530 NEXT BS 
2540 GOTO 2460 

3 INTERUAL OFF ¡SPRITE OFF 
2560 FOR 1=1 TO 15 
2570 SX=-SX+1 

2580 PUT SPRITE 1 . CXS. 403 . I . S'4 
2590 FOR J=l TO 50 ¡NEXT J 
2600 NEXT I 
2610 U5¡=U*+1 

2620 IF LS<4 THEN L*=L*+1 
2630 IF QS>40 THEN Q*=Q*-10 
2640 FOR 1 = 1 TO 1000 ¡NEXT I 
2650 RETURN 2100 
2660 LOCATE 13. 1 ¡PRINT " r—, " 
2670 LOCATE 13. 2 ¡PRINT " | " :RIGHT*CSTR*CC 

~'~ 3 LOCATE 13.3¡PRINT " >— 1 " 
2690 FOR 1 = 15 TO 21 STEP 2 
2700 FOR J=3 TO 27 
2710 LOCATE J.I ¡PRINT CHR*C323 
2720 NEXT J.I 
2730 RETURN 
2740 LOCATE 2.1 

2750 IF C=l THEN PRINT USING "PUNTOS # 



Programas 



2769 IF C=2 THEN PRINT U 
" ;T* 

2770 LOCATE 22.1 



T USING "UIDAS * 

10 A*=CHR*C224] 

10 FOR 1 = 1 TO 13:A*=A*+CHR#C225D+Ch 
ü:NEXT I 

10 LOCATE 2.4:PRINT A$ 
0 A*=CHR*C2135 

¡0 FOR 1 = 1 TO 13:A*=A*+CHR*C2m+CHR*C 
0:NEXT I 

10 LOCATE 2.5:PRINT A$ 

10 A*=CHR*C2333+STRING*C25.2323+CHR*C2 

2850 FOR 1=6 TO 20:LOCATE 2. I :PRINT A*:h 

0 RETURN 
0 RESTORE 

0 FOR 1=0 TO 4:SP*="" 
0 FOR J=l TO 8:READ A* 
0 SP*=SP*+CHR*CUALC"8.H"+A*:n :NEXT J 
0 SPRITE*m=SP*:NEXT I 



2920 FOR 1=1792 TO 1807:READ A* 
2930 UPOKE I,UALC"8,H"+A*: :NEXT I 
2940 FOR 1=1856 TO 1879:READ A* 
2950 UPOKE I.UALC"8.H"+A*D :NEXT I 
2960 UPOKE 8218.8.H76 
2970 UPOKE 8220.8.H67 
2980 UPOKE 8221.&H6A 
2990 RETURN 

3000 DATA 58.58.24. la. la. 24. 24, 66 
3010 DATA la. la. 24. 58. 58. 24. 24, 66 
3020 DATA 5a. 5a. 24, 18. 18,24,24.66 
3030 DATA 18. 18. 24, 5a. 5a, 24, 24. 66 
3040 DATA 00.00. 00.38.7e.ff.ff.7e 
3050 REM 

3060 DATA 00.00.00.c0.o0.f0,f8.fc 
3070 DATA 00. 00. 00. 03. 07. 0f ,lf . 3f 
3080 REH 

3090 DATA 01. 01, 01. ff. 10, 10. 10. ff 
3100 DATA 81. 81. 81, ff. 90, 90.90, ff 
3110 DATA 01.01.01.ff.ll.ll,ll.ff 
3120 SCREEN 0:UIDTH 38:CLS:LIST 1000-106 
0:END 



Test de Listados ■ 



- 42 1658 -239 1970 - 



- 58 1380 -18; 



-220 1410 - 

-125 1420 - 

-232 1430 - 

- 75 1440 -204 

- 37 1450 -209 



_ . . -190 200Í 

■ 33 1690 - 34 2015 

" 1700 -142 2026 

1710 - 41 203E 

1720 -161 204Í 

1730 -107 2056 

1740 - 



1750 - 



172 



2080 -135 
2090 - 92 



-179 1480 - 35 1800 - 65 



1510 -215 1830 -165 



- 41 1560 -235 1880 - 
1250 -125 1570 -234 1890 - 
-136 1580 - 97 1900 - 



■ Asalto a la Fortaleza ■ 



-172 1610 -163 1930 -170 



2220 
2230 
2240 
2250 -234 



2310 -253 
2320 -166 
2330 -145 
2340 - 52 
2350 -183 
2360 -253 
2370 -199 
2380 -118 
2390 -184 
2400 -229 
2410 - 64 
2420 -109 
2430 -142 
2440 -153 
2450 - 10 
2460 -178 
2470 -233 
2480 - 89 
2490 -133 
2500 -228 
2510 -162 
2520 -155 
2530 -234 



- 30 2610 -232 
-142 



2920 - 
2930 - 
2940 - 
2950 - 
2960 -170 
2970 -157 



2660 - 76 2980 -161 
2670 -224 2990 -142 
2680 - 82 3000 - 



2690 -196 



2760 - 
2770 - 
2780 - 
2790 - 



- 92 3120 -103 



2540 - 60 2860 -142 

-133 2870 -140 

-195 2880 -237 

-212 2890 -229 




,8: PRINT "SCREEN O DEMO" 



LOCA1 
[50 LOCATE 
60 PRINT "FUNCIONO" ; "BIEN?" : LOCATE 
20, 15 

70 PRINT"PUES CLARO." 

HEXTB 




10 REM ** SCREEN 0 ** 
| 20 WIDTH 39 
3 SCREEN 0 

LOCATE 4, 8: PRINT "SCREEN 0 DEHO" 
3CATE 10, 10 

"FUNCIONO" ; "BIEN?" : LOCATE 



20 SCREEN 1, 1 

30 LOCATE 4,8: PRINT "SCREEN 1 DI 
| 40 LOCATE 20, 10 

i TAL?" 
> =CHR$ (255 ) +CHRS ( 129 ) +C 
i ( 1 29 > +CHRS < 129 > +CHRS 
9)+CHR$(255) 

(128, 96) , 8 




50 



FOR B=0TO1000 : NEXTB 



) REM ** SCREEN 
20 SCREEN 1, 1 
30 FRESET(8*4,8*8: 

SMO" 

40 PRESET<8*20, 8*10> 
50 PRINT" QUE TAL?" 
6 0 SPR I TES < 1 ) =CHR$ <255 > +CHRS < 1 29 > +C 
HRS ( 129 3 +CHRS (129 > +CHRS ( 129 > +CHRS ( 




70 PUT SPRITE 1, (128,96 
80 FOR A=0 TO 50 
90 PUT SPRITE 1, (128+A.96+A 
100 FOR B=A TO A"2/10: NEXTB 
110 NEXTA 

120 FOR B=0TO1000: NEXTB 



' I 

i+A>,8 



10 REM ** SCREEN 2 ** 
20 COLOR 1,3; SCREEN 2 
30 OPEN "GRP: " AS #1 
40 PSET(5,5):PRINT#1," 
O" 

50 CIRCLE (128,96), 50, 1 
60 FOR B=0 TO 500:NEXT B 
70 LINE STEP(-75, -50: 
) , 15, BF 

80 PSET(20,20) 
90 PRINT#l,"HOLA!" 
100 DRAWbM 75,25" 
110 PRINT#1, "ME VOY. ■ 
120 PSET(0, 0) 
130 PSET STEP(18,50 
140 PRINT#1 
150 PRINT#1 
160 LINE STEP(0 
170 PRINT#1, 
180 FOR A=0 
190 COLOR 1, 
200 FOR 



)R15 



NO ESTOY" i 
UI"; 



STEP(-12( 
"OK."¡" Adiós." 
TO 1000: NEXT 
1 : SCREENO 
TO 500; NEXT A 
4.4:END 



50 CIRCLE (128, 96), 50, 1 
60 FOR B=0 TO 500: NEXT I 
70 LINE STEP(-75,- 
) , 15, BF 
80 PSET (20, 2 




R i N 



"HOLA!' 



3 DRAWbM 75,25" 

3 PRINT#1,"ME VOY. " 

3 PSET (0,0 3 

3 PSET STEP(18,50 3 

3 PRINT#1," NO ESTOY"; 

3 PRINT#1, " ME FUI" ¡ 

3 LINE STEP(0, 0 > -STEP (-120 , +50) , 

3 PRINT#1, "OK. " ¡ " Adiós." 

3 FOR A=0 TO 1000: NEXT 

3 COLOR 1,1: SCREENO 

3 FOR A=0 TO 500: NEXT A 



MSX por dentro 



10 ' **** PROGRAMA I **** 
20 ' **** SVI-328/MSX **** 
30 • *por FEDERICO J. **** 
40 ' **** ALONSO PADILLA * 
50 FOR A=&H8000 TO &H8079 
60 READ A4:POKE A , VAL <" &H" +AS ) 
70 NEXT 

80 BSAVE"SVIMSX",&H8000,&H8079 
90 DEF USR=&H8000: A=USR<0> : NEW 
100 DATA 21,78,80,22,4A,F5,01,C3,80 
,21,09,FF, 16,28,CD,22,80,21,C4,FF, 1 

6, 4E, CD, 22, 80, 21, 3F, FF, 16, 5C, CD, 22, 
80, C9, 71, 23, 72, 23, 70, C9 

110 DATA 3A, 3A, FE, FE, 01, D8, D9, 1E, 08 
, CA, 36, 80, 1E, 20, 3A, 46, FE, 32, 04, F 

8Ó,83,32,48,FE,D9,C9 
120 DATA 3A,04,FA,32,46,FE,3A,03,FA 
, 32, 48, FE, C9, FE, 01, D8, FE, 29, DO, FE, 2 

7, D9, DA, 6E, 80, CD, 9F, 3B, C3, 71 , 80, CD, 
86,3B,D9,3E,28,C9,00,00,00,00,00 



Para el modelo SVI-318 c 
las lineas 50,80 y 90 el 
&H8000 por &HC000, y el i 
&H8079 por &HC079; en las 
100,110 y 120 cambiar toe 
valores 80 por C0. 





SONY BERNARDO 

Córcega, 267 - Tel. 218 22 97 - 08008 Barcelona 

Oferta: MSX-NAVIDAD 

Por la compra de un ordenador Sony-MSX o periférico (Floppy 
o impresora) se obsequiará con una de las siguientes opciones. 
• 50 % descuento curso Basic (cursos especiales 10-14 años) 
• 10.000 Ptas. en Software 
Duración de la oferta: Noviembre, Diciembre y Enero. 
Venga a ver nuestro extenso catálogo de programas 

y juegos para su MSX. 
Cursos intensivos de Basic, también cursos especiales 
para niños de 10 a 14 años. 
Amplia gama de ordenadores de gestión. 



EL MSX COMO 
AUXILIAR DE LA 
ENSEÑANZA 



Entrevistamos a José Vila- 
domat — Director Comercial 
de Sanyo — , quien pone de 
manifiesto los objetivos y las 
garantías de esta empresa en 
la comercialización de sus 
aparatos MSX. 




-p>y entro de] mercado internacic 
■ 1 nal y en particular del españo 
JLV la marca Sanyo es un signo c 
garantía. En este sentido, la estrateg 
seguida por Sanyo España por la nec< 
sidad de garantizar un soporte comei 
cial y de mantenimiento palpable c 

— Señor Viladomat, el MSX com 
aparato perteneciente a^ la microinfoi 

muy claro cuál es su verdadera utilida 
dentro del hogar ¿qué piensa Sanyo : 



ne computer en el ho^ar será una 
secuencia de la aplicación educativa 



pues U sodedad española ai 
{echamiento potencial del ap, 
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a eliminarlos cuents 



3 ' *** CLUB * 
3 CLEAR 8000 
70 DEFINT A-Z 
3 0PEN"GRP:"AS#1 



110 CLS:COLOR 15. 1 . 1 :TQ=TQ+1 :PA=PA-1 :PO= 
PO-1 :N=1 :B=10:P=50 

120 E3=0:REM SI SE QUIERE JOYSTICK CAflBI 
AR E3=l 
130 • 
140 S 

150 D*="AOEBAAC" 
160 B*="03CFGEDC" 
170 C*="05BFEF6C" 
180 PLAY D*.B* 
190 PLAY B*.C* 
200 PLAY D*.C* 
210 RESTORE 500:6OSUB 350 

" 1 í COLOR 9:PRINT#1. 



ás rápido y los efectos de las pas- 



220 PSETC 
230 PSETC 



l:C0L0R 7:PRINT#1," 

■0 THEN PSETC20.705. 1 :C0L0R 2: 
TO 271 STEP 3. 1 :PUT SPRITE 



270 PUT SPRITE 2.CHH-40.1505.13.1 
~~3 PUT SPRITE 3.CHH-40. 1505.U.2 

3 PSET CHH-P, 156) . 1 ¡COLOR B :PRINT#1 . CHR 

451 

3 NEXT HH:N=0 
310 SCREEN 2.0:RESTORE 500 
320 COLOR . 1 

PSETC130,103,1:COLOR 10 :PRINT#1 . "SCO 

340 PSETC 130. 03, líCOLOR 10 :PRINT#1 . "FASE 

350 FOR 1=1 TO 8 

3 S*=S*+CHR$CUALC"6.B"+A*J5 
380 NEXT I 
330 SPRITE*C03=S* 

i FOR 1=1 TO 8 

3 READ A1*:S1*=S1*+CHR*CUALC"8,B"+A1*35 

420 NEXT I:SPRITE*C1D=S1* 
"3 FOR 1 = 1 TO 8 

3 READ A2*:S2*=S2*+CHR*Cl 



^C"8,B"+A2*3) 



450 NEXT I :SPRITE*C25=S2* 
460 FOR 1=1 TO 8 
470 READ A3*:S3*=S3* 

480 NEXT I :SPRITE*C33=S3* 

* DEFINICION DE SPRITES 
500 DATA 00111100 
~ 3 DATA 01111110 



UALC"8,B"+A3*3D 



610 DATA e 
620 DATA 0 
630 DATA 00000000 
640 DATA 011 
650 DATA 0101 
660 DATA 00000000 
670 DATA 00000000 
680 DATA 0 
690 DATA 0 
700 DATA 0 
710 DATA 01111 
720 DATA 00000000 
730 DATA 0010] " " 
740 DATA 0" 
750 DATA 00011 
760 DATA 011 
770 DATA 011 
780 DATA 00011 
790 DATA 00011 
800 DATA 001 1 ' 
810 DATA 0111 
820 IF N=l THEN RETURN 
830 COLOR 15.1.1 
840 RESTORE 500 
850 GOTO 880 
860 ' COMIENZO JUEGO 
870 PLAY"03CDCCFGAAF02FG03B" , " 04CGAABDAB 
BC01E":FOR GG=1 TO 1000:NEXT GG 
880 GOSUB 2160:BA=1 :BB=1 :BC=1 :BD= 

=440:PA=PA+1 :PO=PO+l :NY=NY+2:IF NY>6 T 



HEN N 
890 IF F 



» THEN PO=l ¡GOTO 110 
L : IF BH=0 THEN BH=3 
55.05-C230.8 3. l.BF:PSETC165.03 
5:PRINT#1.PA 
5.203-C215. 1793.NY.BF 
M83-C217.181J.15.B 
3.925.NY:COLOR 1 :PRINT#1 . CHR*C 

:i29.28D.NY:C0L0R 1 :PRINT#1 . CHR* 

5.NY:COLOR 1 :PRINT#1.CHR 

rC200.923.NY:COLOR 1:PRINT#1.I 

!. 1855 :COLOR 9sPRINT#l,"< 

990 IF PA=1 THEN UU=3 
1000 IF PA=2 THEN UU=6 
1010 IF PA=3 THEN UU=9 
1020 IF PA>=4 THEN UU=11 
1030 GOTO 1060 
1040 ' TE HAN ATRAPADO 
1050 TQ=TQ-l:FOR G6=l TO 400:PUT SPRITE 
l.CA.B3.15.3:NEXT GG 
1060 GOSUB 2160:X3=208:Y3=171 :X2=40:Y2=1 



S FOR G 



= 1 TO 3 



i:IF 



1070 



Programa ■ 



. C40.55. 



C60.53, 1 
C40.5Í. 1 



i IF TQ>4 THEN PUT SPRITE 1 
15.0 ELSE PUT SPRITE 12.C100.5 
1090 IF TQ>3 THEN PUT SPRITE 1 
5.0 ELSE PUT SPRITE 13.C80.5]. 

"F TQ>2 THEN PUT SPRITE 1 
5.0 ELSE PUT SPRITE 14.C60.55. 

F TQ>1 THEN PUT SPRITE 1 
5.0 ELSE PUT SPRITE 15. C" 
1120 D=STICKCE3D 

F 0=1 THEN B=3-8 
F 0=3 THEN A=A+8 



1=0 THEN 870 

190 IF A=48 AND B=91 AND 90=1 THEN PLAY 
"BACBGF". " GFErcC " ¡GOSUB 21 50 :SK=0 :BD=0 

1 THEN PLAY 
"BACBGF". "GFEFCC" :GOSUB 21 50 :S<=0 :BA=0 

=128 AND B=163 AND BB=1 THEN PL 
"3 2150:SK=0:BB=0 



AY"BAC8GF", "GFEFCC" :GC 

1220 IF A=200 AND B=91 AND BC=1 THEN PLA 
/"BACBGF". "GFEFCC" :GOSUB 2150 :SK=0 :BC=0 
1230 - nOUIHIENTO DE LAS BROCHAS 



1400 OL=OL+RH:I 
= 11 :EL=3:IL=7:U 
1410 PUT SPRITE 
1420 PUT SPRITE 
1430 PUT £ 



i PUT SPRIT 
3 PUT SPRIT 
3 D=STICKCE 



'1 THEN B=!71 
- "-I B=19 



3-8 J 
A=208 



1640 IF P0INTCA.B+2D=NY THEN BEEP íLINEC 
. B+13-CA+7. B+8 3 . 1 . BF :SC=SC+5 :SA=SA-1 : IF 
SA=0 THEN 870 

1650 IF Y3>=171 THEN Y3=171 
1660 PUT SPRITE 2. 
1670 PUT SPRITE 6. 
1680 IF A=128 AND 
"BACBGF". "GFEFCC" 
1690 IF A=48 AND I 
"BACBGF" , "GFEFCC" 
1700 PUT SPRITE 3, 
1710 PUT SPRITE 
1720 PUT SPRITE 
1730 PUT SPRITE 
1740 PUT SPRITE 5, 
'750 PUT SPRITE " 



B=27 AND BA=1 THEN PLAY 
:GOSUB 2150:SK=0:BA=0 
¡=91 AND BD=1 THEN PLAY 
:GOSUB 2150:SK=0:BD=0 



17B0 ; 



3 BB=1 THEN PL 



V " BACBGF " . " GFEFCC " : GOSUB 2 1 5 

770 IF A=200 AND B=91 AND BC=1 THEN PLA 
'"BACBGF". "GFEFCC" ¡GOSUB 2 1 50 :SK=0 :BC=0 
780 IF KI = 1 THEN IF BD=1 AND BA=1 AND B 
1=1 AND BC = 1 AND SA=4 THEN K I =0 :PLAY " 03B 
_ ~=TQ+1 :SC=SC+1000:GOTO 



GOSUB 2180 



AND YKB+10 THEN IF EL.=3 THEN PLAY" 
3BADB02GFCFG" :GOTO 1050 ELSE IF EL= 
EN GOSUB 2190 

1810 IF X2>A-10 AND X2<A+10 AND Y2> 
AND Y2<B+10 THEN IF IL=7 THEN PLAY" 
3BADB02EFCAE" :GOTO 1050 ELSE IF IL= 
EN GOSUB 2200 

1820 IF X3>A-10 AND X3<A+10 AND Y3>l 
AND Y3<B+10 THEN IT UL=9 THEN PLAY" 
3BADB02GDGBC " :GOTO 1050 ELSE IF UL= 
EN GOSUB 2210 
1830 R=STICKCE33 
1840 IF R=l THEN B=B-8 
1850 IF R=3 THEN A=A*8 
1860 'IF R=5 THEN B=B+8 
1870 IF R=7 THEN A=A -8 
1880 PUT SPRITE 1.CA.B3.15.0 
1890 IF POINTCA.B+23=NY THEN BEEP:L: 
~ " K33. l.BF:SC=SC+5:SA=SA-' 



SA 0 



'BACBGF" . "GFEFCC" :GOSUB 2 1 50 : SK=0 :BA=0 
320 IF A=128 AND B=163 AND BB=1 THEN PL 
r"'BACBGF", "GFEFCC" :GOSUB 2150 :SK=0 :BB=0 



00 ANO B=91 AND BC=1 THEN PLA 
GFEFCC" :GOSUB 2 1 50 : SK=0 : BC=0 
'.0 AND X<A+10 AND Y>B-10 AND 
IF AL=11 THEN PLAY " T 250O3BA 
)T0 1050 ELSE IF AL=15 THEN 



Y<B+10 THEN 
DB02BAGGB" :G( 
GOSUB 2180 



AND YKB+10 THEN IF EL=3 THEN PLAY"T250O 
3BADB02GFCFG" :GOTO 1050 ELSE IF EL=15 TH 
EN GOSUB 2190 

AND Y2<B+10 THEN IF !L=7 THEN PLAY"T250O 
3BADB02EFCAE" ¡GOTO 1050 EL. SE IF IL=15 TH 
EN GOSUB 2200 

1970 IF X3>A-10 ANO X3<A+10 AND v 3 > B -l0 
AND Y3<B+10 THEN IF UL=9 THEN PLAV"T250O 
3BADB02GDGBC" :GOTO 1050 ELSE IF UL=15 TH 
EN GOSUB 2210 



■ A>=208 THEN fl=208 

- A<=¡40 THEN A=40 

- B>=171 THEN B=l?l 

- B<=19 THEN B=I9 
7 X2>=208 THEN X2=40 

■ Y3=<13 THEN Y3=171 

- X>=208 THEN X=208 




9 THEN Y=19 
then X2-X2 < JIJA J I 



_:neci75. i 



¡r:t=SETC170 



COLOR 1 
2170 RETURN 

2180 PLAV"T250O3DE : ' ¡X=40¡v,- 
:SK=SK+1 :SC-SC+t200*SK] ¡FOR 
ETC113. 1851. 1 :COLOR 9¡°RINT 
T F:°SETC 113. 1853, 1 : COLOR 1 
SK: GOSUB 2 160: RETURN 
2190 PLAY"T250O3DE" : XI =208 : v l - 19 : JE=1 ¡EL 
=3:SK=SK+1 :SC=SC+r2B0*SK3 :fqr F-l TO 10: 
PSETC113. 1853. 1 ¡COLOR 9 ¡ D R I N Ttt 1 . 200*SK ¡K 
EXT F :PSETC 113. 1850. 1 :COLOR 1:PRINT#1.2C 
0*SK¡GOSUB 2160:RETURN 

2200 PLA""' T 250O3DE" : X2-40 :Y2-1 71 :JI = 1 :IL 
= 7¡SK=SK + 1¡SC=SCK200*SK:>:FOR F-l TO 10: 
PSETC113. 1853. 1 -.COLOR 9 ¡ D RINTt?l . 200*SK 
EXT F :PSETC 113. 185 J . ! :COLOR l:PRINT#!.2í 
0*SK ¡GOSUB 2163 ¡RETURN 

2210 PLA V " T 250O3DE" ¡X3=208 ¡Y3 ^171 :JU=1 ¡l 

■ -,- \: 
¡PSETC113. 1853. 1 ¡COLOR 9 ¡PRINTttl , 200*SK ¡ 
NEXT F ¡PSETC 1 13. 1851 . 1 ¡COLOR 1 
00*SK¡GOSUB 2160¡RETURN 



Test de Listados» 



-El borra — 



330 - 93 650 - 



420 -235 740 - 6 



450 -237 770 - 



87 490 - 58 81C 



■ 10 940 - 93 



1930 -25'. 
1950 - 



700 - 69 2020 - 



- 63 2200 -I?'. 
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IAMIIEWA A medida 1 ue el estándar MSX 
1 L| 1 11 1 1 !■ 1 # ti ocupa mayor espacio en el mer- 
Lll | W W k V fl cado, también se descubren 

DIMENSION DEL MSX 

■ ■ ■ ■ mm ■ ■ w ■ ■ m w& ■ M III t¡0 m m ellas. 






"Y T" arlos de los^ fabricantes que 


discos láser a la aceran del ordenador. 

¡Ég§1 




lili 






E 


flSll 





Entrevista 




Entrevista i 



teoritos que son indestructibles, y des- 
o habilidad. Para destruir los ovnis de 



Jas cuatro pantallas, es decir, que si gas- 
tas mucha con la primera te quedará 
poca para las demás. 
Si destruyen todas tus naves o ¡astas to- 
da la energía o destruyen la ciudad, el 




KRYPTON 



MARCADOR 




■1 er Gran Concurso "Mi programa"» 



TENEMOS GANADOR 

LOS LECTORES ELIGIERON 
EL «PROGRAMA DEL AÑO» 



MSX CLUB DE PROGRAMAS e 
a listados, con 53 programas, de lo 



JOYSTICK DE ORO 1985 



«LA PIRAMIDE» 
DE 

FRANCISCO 
URBANO 
REINALDO 



VOTANTES PREMIADOS 

jarticipado'pTrrdcyrrM^PRo" 
3RAMA 1985 y de acuerdo con las ba- 



! resultó ganado 



ganador y al que 
rmino, BARCE- 



quedó en segundo término, B. 

LONA OLIMPICA, de Humberto 
Martínez Barbera de Cartagena. 



Mayor, 22 - Moneada (Valencia) 

Pontevedra 21 14 - Rota Naval (Cádiz) 
Antonio E. Lázaro Soriano 
Seu de Urgel, 6 - Terrasa (Barcelona) 
Fé de Juan Olalla 
I amante, 2 - Huesca 
Héctor Martínez Pérez 
Gral. Franco, 53 - Los Cristianos (Te- 
Ramón Soto Clupes 
Ferrer i Dalmau, 28 - Matará (Barcelo- 

Féíix Villota Fernández 
Carmen Mcdrano, 2 - Logroño 
Miqucl Piquera, Ni,to 

CoI-- D ~-- ' 



a, 40-42 -Ciudad Meridiana 
temando González Fernández 
Plza. Isla de Fuerteventura, 4 - Madrid 

A TODOS ELLOS NUESTRAS FE- 
l.K I 1 A( IONES "i A NUESTROS 
LECTORES EN GENERAL NUES- 
TRO AGRADECIMIENTO POR EL 
M U > INI >!< I DI- PARTICIPA- 



PREMIOS DEL PRIMER 

FESTIVAL DE SOFTWARE 



Organizado por el Centro 
Divulgador de la 
Informática 



l-H de la Generalitat de Cataluñ 

del Primer Festival de Software organi- 
zado por el Centro Divulgador de 1,1 
Informática. El acto, al que asistió nu- 

TconsIner [ %'ep S Mlró VXr'dH^m 
representación del Presidente de la Ge- 
Centro 'bivulgador" di la IníoSica, 
Santiago Gmffén. 

: ■ : : 

Josep M." Bague Roure 

— Primer premio júnior: 



Rafael Botey Agustí 

c/«¿Tf«tó ucat,vo SLn 

Miquel Morell Mestre 

Mejor programa de uso di 
Entrenamiento Atlético po 
Luis Antonio Arruga 
Mejor juego sénior: 
El solitario 

Miguel Morell Mestre 

Cálculo mental 

Ferrán Guirao Cartagen 

Mejor Programa Didáctia 



^endolado 

Javier Sandoval Aguado 

Mejor Programa de aplicación en agri- 



Jorge Benedet 

Mf|or Programa de Utilid 



Química' r 
Iván Castelltort i Parera 

En el transcurso del acto, el guitar 

Joan Garrobé interpretó música clásica 
acompañado por música procesada por 



a' es el 



Transformador 



• • • • • • ( 



>••••• 



CPU 

(Microprocesador 
Z80A) 

PSC (Generador 
programadle > 
de sonido) 



unidad de - 
ROM BASIC 



PPI (Interface programable) 



vdp (Vídeo Display Processor) 



REGALATE EN ESTAS FIESTAS UN LIBRO 
VITAL PARA EL USUARIO DE MSX 



UN LIBRO PENSADO 
PARA TODOS LOS QUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

Construcción de programas. El po- 
tente editor todo pantalla. Constan- 
tes numéricas. Series, tablas y ca- 
denas. Grabación de programas. 
Gestión de archivo y grabación de 
datos. Tratamiento de errores. Los 
gráficos del MSX. Los sonidos del 
MSX. Las interrupciones. Introduc- 
ción al lenguaje máquina. 




Y ADEMAS PROGRAMAS 
DE EJEMPLO 

Alfabético. Canon a tres voces. 
Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. 
La Flauta Mágica de Mozart. Scrap- 
ple from the apple & Donna Lee. The 
entretainer. Teclee un número. Ca- 
lendario perpetuo. Modificación Ta- 
bla de colores SCREEN 1 . Rectán- 
gulos en 3-D. Juego de caracteres 
alfabéticos en todos los modos. Jue- 



Apocalyp- 
El archivo 



Deseo me envíen el libro Los secretos del MSX, para lo cual adjunto talón de 1 .500 ptas. a la orden de ' 
MANHATTAN TRANSFER, S.A. 
Nombre y apellidos 

Calle n Ciudad ZZ'.Z'Z'.'Z CP 

Este boletín me da derecho a recibir los secretos MSX en mi domicilio libre de gastos de envío o 
cualquier otro cargo. 

importante: Indicar en el sobre MANHATTAN TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle. 10-12 Bajos-08023 BARCELONA 



SORPRENDE A UN AMIGO FELICITANDOLE ESTAS FIESTAS CON 
«LOS SECRET" " 
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Bee Card 



Características técnicas de la BEE CARD: 




BEE CARD INTELL1GENT CARD ROM CARD (ASIGNACION DE P1NS) 
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CARA TARJETA 




Programa ■ 



■ Por Diego Castaño Rodríguez ■ 



MATEMATICAS 



Muchos lectores encontra- 
rán en este programa educa- 
tivo una gran ayuda, ya que 
contiene los teoremas de Pi- 
tágoras, del cateto y la altura 
y polígonos, sus fórmulas y 
el modo de resolver pro- 



ra SCREEN2: COLOR .1. 
80 CLOSE:OPEN"GRP:"A 
90 DRAU"BM10.25" :PRI 
100 COLOR 6:DRAW"BM1 
0L20U10R5U70L5U1 



.50" :DRAU"R25ri 



:15R25D10L5O70R5Ü10L20U10R5U?0G25H25O70R5O1 



10 COL 
120 COL 
511203. : 
130 Pfí. 



0R2 :DRftW"BMl 1 
OR 4 :DRAU"B 
05M175.140L15U1 0R8M 1 95 , 95M 1 68 . 60L8U 1 0 " 



96}. 2 



150 PA I N r C 202, 
160 DRAWBM5, 1 
170 F0RDMT046 
180 CLS 

190 FORDMTO1000:NEXTO 
200 SCREEN 2:C0L0R 12,1, 



X CLUB DE PROGRAMAS " 



230 LINEC255.1S 
240 LINEC245.1Í 
TC5.55. 



.2. 12 



260 DRAÜTBM32. 136" :DRAU"R24U8L8U72L8G8D8R8D56L8D8" 
270 DRAW"BM64. 136" :DRAU"R8U8L8D8" 

280 DRAWBM96. 136" :0RAW"R24U8L8U72L32D32R24U8L 1 6U 1 6R1 6D64L8D8" 
290 DRAUPBM136. 136" :DRAU"R32U8L24U32R24U8L24U24R24D72R8U80L40D80" 
300 DRAWBM192. 136" :ORAU " R32U48L24U24R24U8L 32D40R24D32L1 6U 1 6L8D24 " 
310 PAINTC44.965. 12. 12 
320 PAINTC68. 1325. 12. Y. 



340 PAIN 
350 P 



.1325.12.12 
3,925.12.12 



F0RI=1T01E 
370 LINEC224. 1605-C32. 1445, 
380 FORD=1TO4000:NEXTD 
390 CLS 

400 FORD=1TO500:NEXTD 

SCREEN0:UIDTH38:COLOR 1 



4i:0 P 



PROBLEMAS DE I" 



Soft. MSX CLUB 



1- TEOREMA DE PITAGORAS 



Programa ■ 



550 pr: 
560 pr: 
570 pr: 



2- TEOREMA DEL CATETO 

3- TEOREMA DE LA ALTURA 

4- POLIGONO 



COMPATIBLE CON TODOS LOS 



3 PRINT:PRINT:PRINT"Selecc iona el no 

3 A*=INKEY* 

3 IF A*=""THEN 620 

3 BEEP 

3 IF A*<"1"0RA*>"4" THEN 620 

3 ON UAL C A* D GOTO 670,1300.1990.2560 

3 SCREEN 1 :WIDTH31 :COLOR 12.1.1 



TEOREMA DE P I TAGORAS 



CClKioi 



Soft. 



-1 FORMULAS BASICAS 
-2 CATETO MAYOR CAI 
-3 CATETO MENOR IB) 
-4 HIPOTENUSA CH1 
-5 RETORNO AL MENU 



860 A*=INKEY3 



890 I 



910 CLS:SCREEN 2:C0L0R 1 
920 CLOSE:OPEN"GRP:"AS#l 
930 C0L0R15:DRAUI' 
940 COLORI 5 :DRAW 
950 COLORI 5 :DRAW 
960 COLORI 5 :DRAW 
970 COLOR 1 :DRAW 
980 COLOR 1 :DRAU)' 
990 DRAUTBM100. 100' 

000 COLOR 15:DRAU"D50R: 

010 COLOR 1 :DRAU"BM90 1 

020 COLOR 1 :DRAU"BM135, 

030 COLOR 1 :DRAU"BM138, 

040 COLOR15:DRAU"BM10, 

050 IF INKEY*=""THEND=RNDC15 :GOTO II 

060 GOTO 670 

070 CLS:SCREEN 1 : COLOR 15,4.7 
080 PRINT:PRINT" A~2=H"2-B~2" :PRINT 
090 INPUT" HIPOTENUSA ":H:PRINT 
■~ INPUT" CATETO MENOR ":B:PRINT 



'0M100, 1£ 
25" :PRINT#1, "B" 
160" :PRINT#1. "A" 
""""" :PRINT#1. "H" 



10, 1253, 15, 15 



0 A^ 



CATETO MAYOR= " ¡CSNGCSQRCA] J 
30 LOCATE 0.20:PRINT"Pulsa una tecla par 
40 IF INKEY*=""THEND=RNDCn :GOTO 1140 
50 GOTO 670 

60 CLS:SCREEN 1 :COLOR 15.4.7 



PRINT" CATETO MENOR= " ¡CSNGCSQRCB3 3 
GOTO 1130 

CLS:SCREEN 1 :COLOR 15,4.7 
PRINT :PRINT" H-*2=Pr2+B"2" :PRINT 
INPUT" CATETO MAYOR ":A:PRINT 
INPUT" CATETO MENOR ";B:PRINT 
H=A~2+B~2 

-I1P0TENUSA= " ¡CSNGCSQRCH3 3 
30 

JIDTH31 :KEY OFF :SCREEN0 ¡COLOR 12.1,1 
TEOREMA DEL CATETO 



CC 3 H 



1985 



-1 FORMULA BASICA 

-2 METODO PRIMERO 

-3 METODO SEGUNDO 

-4 RETORNO AL MENU 



1520 SCREEN 2:COL0R 15.4 



3 DRAÜJ " BM 1 2 

3 DRAüJ"BM13 

3 DRAÜJ"BM13 

3 DRAWBM13 

3 DRAüJ"BM13 

3 DRAÜJ " BM1 3 

3 DRAU1 " BM 1 3 

3 DRAWBM13 

3 DRAÜJ"BM13 

3 DRAüJ"BM7e 

3 DRAW'BMie 

3 DRAÜJ " BM 1 3 

3 DRAüJ"BM205. 1 

3 DRAÜJ "BM1 

3 DRAÜJ"BM1 

3 DRAüJ"BM7 

3 DRAüJ"BM7 

3 DRAüJ"bm7 

3 DRAÜJ " BM7 

3 COLORI 

3 COLORI 

3 COLOR 



-l"GRP:"AS#l 

1 :DRAÜJ"R120H60G60" 
:PRINT«1. " : 11 
:PRINTt*l. " ! " 



su proaeccló 



: DRAÜJ " BM7 , 45 " :PRINTttl, " A^B=A , /-B' 
:DRAÜJ"BM7.51":PRINTttl," 

5:ORAüJ"BM7.'l82" :PRINT*tí , "Pu Isa un; 
3 IF INKEY*=""THEN D=RNDC 1 3 :GOTO 1790 
3 GOTO1300 

3 CLSiSCREENl :COL.OR 15.4.7 

3 PRINT:PRINT"nVB=A , .'B' 3=A^B=C/D" :PRINT 

3 PRINT"A'C=C/M" :PRINT 
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3 INPUT"SU PROYECCION" :n:PRINT 

3 A=C~2^r1:PRINT"HIP0TENUSA= ":CSNGCA3 

3 LOCATE 0.20:PRINT"Pulsa una tecla para c 

3 IF INKEY*="" THEN D-RNDC 1 3 :GOTO1880 

3 GOTO 1300 

3 CLS:SCREEN1 : COLOR 15,4.7 

3 PRINT :PRINT" Cft/B-A' /B' :=A/B=C-"D" :PRINT 

3 PRINT"A^B~B/N" :PRINT 

3 INPUT'TATETO" :B:PRINT 

3 INPUT"SU PROYECCION" :N:PRINT 

3 A=B~2/N:PRINT"HIP0TENUSA= "ICSNGCAI 

3 LOCATE 0,20:PRINT"Pulsa una tecla para c 

3 IF INKEY$=" " THEN D-RNDC 1 3 :G0T0 1970 

3 GOTO 1300 

' UIDTH31 :SCREEN0:COLOR 12,1.1 

TEOREMA DE LA ALTURA 



uj¡ Soft. 1985 



-1 FORMULA BASICA 



-3 RETORNO AL MENU 



3 -A*=INKEY* 

3 IF A*="" THEN 2140 

3 BEEP 

3 IF A*<"1"0RA*>"3" THEN 2 
3 ON UALCASIGOTO 2190.2470, 
3 SCREEN 2:COL0R 15.4, 
3 CLOSE:OPEN"GRP:"ASttl 
3 DRALü "Bf 
3 DRALü"BM7 

3 DRAU"BM7 



CLS 



2260 
2270 
2280 
2290 

2310 



20" :PRIN 
30" :PRIS 
1 :DRALÜ"BM1E 
1 :DRAU"Br1ie 
15:0RALü"BM 



' :DRAU"R120H60G60" 



DRALü"BM13 
DRALü " BM1 3 



Ü"BM70 . 



2330 DRALü" 

2340 DRALü" 

3 DRALü" 

2360 DRALü " 

2370 DRALü " 

2380 DRALü" 

2390 DRALü" 
2400 

2410 DRALÜ" 

2420 DRALÜ" 

2430 DRALü" 

2440 DRALÜ" 

2450 IF INKEY*=" 

2460 GOTO 1990 

3 CLS:SCREEN 



28" :PÍ?IS 
'0" :PRINT 



Ü-BM205. 1 



45" :PRIS 
i" :PRINT 
THEND-RNDC 1 ! 

: COLOR 1 



2500 INPUT" PROYECCION DEL CATETO MAYOR ";N:PRIN1 
2510 H=n+N 

2520 PRINT "LA ALTURA ES " :CSNGCSQRCH3 D 

2530 LOCATE 0. 20 :PRINT"Pu Isa una tecla para contir 

2540 IF INKEY*=""THEND=RNDCn :GOTO 2540 

2550 GOTO 1990 

3 CLS:SCREEN 0:COLOR 12,1,1 
2570 F 

POLIGC 



2610 P 
2620 P 
2630 P 
2640 P 
2650 P 



2710 F 
2720 F 
2730 F 
2740 F 
2750 F 
2760 F 
2770 F 
2780 F 
2790 F 



-3 PERIMETRO 

-4 APOTEMA 

-5 ANGULO CENTRAL 

-6 ANGULO INTERIOR 

-7 POLIGONOS REGULARES " 

-8 RETORNO AL MENU 



2910 



IF K$ -í " 1 " ORA$> "6" THEN 2800 
ON UALCKSJGOTO 2850.3050.3230,3440.361 
SCREEN 2:C0L0R 1Í.4,7:CLS 
CLOSE:OPEN"GRP:"AS#l 

COLOR 15:DRAW"BM 5. 8" :PR INTtt 1 , - RADIO. 

DRflW"bm5Í28"!pRINT#i;"rencl« hasta ol 
COLOR 1 :DRAU"brr! 12.61" :DRAU)" r — ' 



2970 F 
2980 I 
2990 I 



[NEC 128, 8 
3 CIRCLEC128. 861. 1.15. ,.!.< 
3 COLOR 15:DRAuJ"bT.138.90 n :c 
3 COLOR !5:DRAWoii!0. 180" :P 
3 IF INKEY$í— THEN D--RNDI1 
3 SCREEN 1 :COLOR 15. «. 7 :WI r 



143, i: 



3 LOCATE 0.20:PRINT "Pulsa una t B cla pom 

3 IF INKEYS--" ' THEN D-RNDf 1 .1 :GOTO 3030 

3 GOTO 2560 

3 SCREEN 2:C0L0R 15,4,7:CLS 

3 CLOSE:OPEN"GRP: AStt'. 

3 COLOR 15:DRAlú"BM 5.8" :PRINT«! , 1 LADO.- 
3 DRAW"bT5. 18" :PRINT#1, "entre dos 

3 DRAW"bii5,28" :PRINrttl . "9010. 

3 COLOR 1 :DRAHi"bi"! 12.6! " :DRAU"r30n,158.86n 

3 COLOR 15:DRAU"bn97,67" :PRINT#1. "L" 

3 COLOR 15:DRAüJ' bm:0. '.80" :PRINTS1 , "Pulsa 

3 IF I NKEY$ - " " THEN D "-RND f 1 1 : GOTO 3130 

3 SCREEN 1 :COLOR 1 5 , 4 . 7 : U! DTH30 :KEYOFF 

3 PRINT :PRINT "L~2=CR~2~Ap~2:)*2" :PRINT 

3 INPUT "RADÍO ":R:PRINT 

3 INPUT 



3, 86c 15m! 12, 61" 
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3180 L=R"2-AP~2 

3190 PRINT "LADO=" :CSNGCSQRCL13*2 

3210 IF INKEY*="" THEN D=RNDC 1 1 :GOTO 3210 




3220 GOTO 2560 

3230 SCREEN2SCOLOR 15.4.7SCLS 
3240 CLOSEiOPEN "GRPs"AS#l 

3250 COLOR 15:DR«U"BM 5,8" sPRINTttl , " PERIMETRO. - Es 
3260 DRAW"bm5, 18" SPRINT»! , "los segmentos do 


130m98!86mll2,61" 


3270 COLOR l:DRAtd"bmll2,61"sDRAU)"r30m!58,86ml43,lll 

3280 COLOR15:DRAW"bm!27.50" sPRINTttl , "L" 

3290 COLOR 1 5 : DRAW "bml 0 , 180" sPRINTttl, "Pulsa, una toe 

3300 COLOR 1 :DRAW"bmll2,61" sDRAU" r30ml 58. 86m 1 43 , 111 

3310 COLOR15:DRAU"bml27,50" SPRINT* 1 , "L " 

3320 COLOR 15:DRAU"bml0. 180" :PRINT*1, "Pulsa una tec 

3330 IF INKEY*="" THEN D-RNDC 1 1 ¡GOTO 3330 

3340 SCREEN 1 :COLOR 1 5, 4 , 7 SUJ I DTH30 5KEYOFF 


la para cont ¡nuar" 
130m98,86mll2,61" 

la para cont ¡nuar" 


3350 PRINTsPRINT"P=L*n" SPRINT 

3360 PRINT"n=Num.de lados del oo 1 i gono . " SPRINT 

3370 INPUT"LADO ":L:PRINT 

3380 INPUT"NUM. DE LADOS "SNsmiNT 

3330 P=L*N 

3400 PRINT"PERIMETRO= " :P 

3410 LOCATE 0.20:PRINT "Pulsa una tosí- para nntln 
3420 IF INKEY$=" " THEN D=RNDC 1 1 :GOTO 3420 
3430 GOTO 2560 

3440 SCREEN2:C0LOR 15,4,7:CL.S 
3450 CLOSE:OPEN"GRP:"AS#l 

3460 COLOR 15:DRAU"Bf1 5, 8" :PR I NT#1 , " APOTFMA. -Es el 

3470 DRAW"bm5. 18" :PRINT#1 , "desdo el centro 

3480 DRAUJ"bm5,28" sPRINT#l, "hasta el centro 

3490 COLOR 1 :DRAUI"bit!ll2,61" SDRAU" r30m 1 58. 86m 1 43, 111 

3500 CIRCLEC128.86D, 1, 15, , . 1.4 

3510 LINEC128.861-C128. 1 111, 15 

3520 COLOR 15sDRAU"BMI30, 96" SPRINT*!, "Ap" 

3530 COLOR 15:DRAU"bm!0, 180" :PRINT#1, "Pu Isa una tec 

3540 IF INKEY*- 1 n-ir.N D'-RNDÍ I 1 :GOTO 3540 

3550 SCREEN 1 rCOLOR 1 5, 4 , 7 SUIDTH30 :KEYOFF 

3560 PRINT :PRINT"Ap~2=R~2-í£ L ADO" ¡PRINT 

3570 INPUT"RADIO ":R:PRINT 

3580 INPUT"LA MI TAD DEL LADO ":L:PRINT 

3590 AP=R~2-L~2 

3600 PRINT "APOTEMA^ "SCSNGCSQRCAP.il 

3610 LOCATE 0,20:PRINT "Pulsa una tecla Para contin 


de^n"^'"" 
130m98,86mll2,61" 

la para cont ¡nuar" 


3620 IF I NKEY$= " " THEN D=RNDC 1 1 SGOTO 3620 
3630 GOTO 2560 

3640 SCREEN2:C0LOR 15,4,7:CL.S 
3650 CLOSE:OPEN"GRP:"AS#l 

3660 COLOR 15SDRAWBM 5, 8" :PR INT#1 , " ANGULO CENTRAL 

3670 DRAUI"bm5, 18" SPRINTS!, "formado por dos 

3680 DRAU"bm5,28" sPRINTttl , "t i uos . " 

3690 COLOR 1 :DRAU"bmll2,61" sDRAUT r30m 1 58, 86ml 43, 111 

3700 CIRCLEC128.863, 1, 15, , . 1.4 

3710 LINEC128.861-C143. 1111.15 

3720 LINEC128.861-C112, 1115. 15 

3730 COLOR 15SDRAUPBM122, 101" sPRINT#l. "Ac" 

3740 COLOR 15sDRAW"bml0, 180" sPRINT#l, "Pulsa una tec 

3750 IF INKEY$=" " THEN D=RNDCllsG0T0 3750 

3760 SCRffNl sCOLOR 15.4,7 sUIIDTH 30 

3770 PRINTsPRINT"Ac=360o--n" SPRINT 

3780 PRINT"n=Num. de lados del P o 1 i gono " sprint 


.-Es el ángulo " 
130m98,86ml 12.61" 

la para cont i nuar" 


3790 INPUT"No DE LADOS "SNsPRINT 
3800 AC=360'N 

3810 PRI NT " ANGULO CENTRAL= "¡ CSNGCAC1 

3820 LOCATE0,20sPRINT"Pulsa una tecla para continua 





3830 
3850 



IF INKEY*="" THEN D^RNDC 1 ) :GOTO 3830 
GOTO 2560 

SCREEN2:C0L0R 15,4.7:CLS 



3 CLOSE:OPEN"GRP:"AS#l 
3 COLOR 15:DRAW"BT1 5, 8 : ' :PRINT#1 , 
3 DRAU"bm5, 18" :PRINTttl, " 
DRAU"bm5,28" : 



ANGULO INTERIOR. -Es 



3900 COLOR 
3910 LINEC1 
3920 COLOR 
3930 CIRCLE 
3940 COLOR 
3950 IF INK 
3960 SCREEN 



" :DRAW"r30m!58,86ml43, 1 



D=RNDC 13 :GOTO 3950 
80B'"n" :PRINT 



:DRALT 
5 :DRAW"E 

:COLOR 1 
>RINT"A¡=Cn~2: 
IUM. DE LADOS 
!3*180/N 

INGULO INTERIOR ":CSNGf.AI3 
0.20:PRINT"Pulsa uia tecla ( 
y*--" " r HrND--RNDm :GOTO 4020 
¡60 

¡COLOR 12,1,1 

5 POLIGONOS REGULARES 



3 PRINT" 
3 PRINT" 
3 PRINT" 
3 PRINT" 



-2 CUADRADO 
•-3 PFiNTAGONO 
-4 HEXAGONO 
-5 HEPTAGONO 
-6 OCTOGONO 



3 ON l 



l"ORA*>"7' THEN 4250 

K*3GOTO 4300, 4430, 4540, 4690. 4850. 5020 
2:C0L0R 12.1,1:CLS 



3 CLOSE:OPEN"GRP:"AS#! 
3 COLOR 12:DRAW 'Bn85. 10" ;PRII- 
3 COLOR 12:DRAUi"SM84. 15" :PR!I> 
3 LINEC128.403 -r 184. 1203. 13 
3 LINEC 184, 1 203 -T 72, 1203, 13 
3 LINEC72,1203-ri28.403,!3 
-.28.80:. 



4380 COLOR 5 



DRAW " BH85 , 124" : 
□RAW"BM84, 129" : 
DRAW"BÍ1!0, 180" : 
' IEND=RNP' I 



3 GOTO 4040 
3 SCREEN2:C0L0R12.1.1 :CL.Í 
3 CLOSE:OPEN"GRP: 'AS#1 
3 COLOR 12:DRAU"BM85. 10" : 
3 COLOR 12:DRAU"BH84,"15" : 
3 COLOR 9:DRAU"Brl92,50" ií 
3 PAINTC128.903,9.9 
3 COLOR 5 ¡DRAW" 81185, 146" : 
3 COLOR 8 :DRAW"BI"184, 150" : 
3 COLOR 8:DRAUI"Brll0, 180" : 



INT#1." POLIGONOS" 
INTtH," mn»« 
J"R70D70L70U70" 
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4540 
4550 
4560 



4620 
4630 
4640 
4650 



4700 
4710 
4720 
4730 



4790 
4810 



IF INKEY$=" "THEND-RNDC 1 
GOTO 4048 

SCREEN2:C0L0R 12, 1, 1 :CL 
CLOSE :0PEN"GRP:"AS#1 
COLOR 12 :DRAU"BM85. 10" : 
COLOR 12:DRAW"B 
LINEC128.361--U 
LINEC176.721-U 
L I NE C 1 60. 1283- C96, 1281,8 
L I NE C 96, 1 28 1 - C80, 721,8 
LINEC80.721-C128,36:,8 
PAINTC128.963.8 
COLOR 5:DRAU"Bri85. 146" :P 
COLOR 8:DRAU1"BM84. 150" :P 
COLOR 8:DRAUTBM10. 1£ 



RINT#1," PENTAGONO 1 
RINT#1," „ 



■ INKEY*--""THEND-RNDm :GOTO 4 67 0 
büTO 4040 
SCREEN2:C0L0R 12 
CLOSE :OPEN"GRP:" 
COLOR 12:DRAW"Bri85. 1 
COLOR 12:DRAU"Bri84, 1 
LINEC128.52J-C164.76 
164,761 - 



tecla para continuar" 



:i64, 1 



-INECS 



. 1361 -r90, 1 

1 12D-CS 



30,761 - 
PAINTC128,96},11 
COLOR 5:DRP>U"BI"I85, 
COLOR 8:DRAU"BI184. 
COLOR 8:DRAU"Bril0, 
IF INKEY*=" M THFND--I 
GOTO 4040 
SCREEN2:C0L0R 12,1 
CLOSE :OPEN"GRP : "AS ; 




5020 
5030 
5040 
5050 



28.961,2 
COLOR 5 :DRftU"Bn85, 
COLOR 8:DRAU"BM84 
COLOR 8 :QRAW"Bni0, 
IF INKEY*--' 1 " niEND- 
GOTO 4040 
SCREEN2:C0L0R 12,: 
CLOSE :OPEN"GRP:"AS# 
COLOR 12:DRAU"Bn.S5, 
COLOR 12 :DRñU)'V 4 
3 LINEC128.543-Ci:>(..i 
3 LINEC156.683-C165. 
3 LINEC165.961-C156. 
3 LINEC156. 1281-C128 
3 LINEC128. 1411-r 100 
3 LINEC100. 1283-C91.963.5 
3 LINEC91,961-tl08.683.5 
3 LINEC100.681-C128.543.5 
3 PAINTC128.96D.5 
3 COLOR 5:DRAU"BM85, 146" :PR 
3 COLOR 8:DRAU"BM84,1 



5178 COLOR £ 



5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 

5340 
5350 
5360 
5370 



3 REM PANTALLA DE C 
3 SCREEN2 

3 CLOSE:OPEN"GRP:"C 



LINEC255, 191J-C30. 30 3,4 
COLOR 15:DRAW"Bri32.40" : 
COLOR 15:DRAW"bíí32,50" : 
COLOR 1 :DRAW"bm32,60" :F 
COLOR 15:DRAU"bm32.70" : 



.. DEL PROGRAMA 



, "BASIC Y GRAFICOS. 



COLOR 15:DRAW"bm32. 105" :PRIN 

COLOR 15:DRAU"bm32,U5":PRIlN 

COLOR 15-.DRAU"bm32, 125" :PRIN 

COLOR 15:DRAW"bm32. 135" :PRlh 

COLOR 15:DRAUI"bm32, 145" :PRIM 
F0RI=1T015 

COLOR I :DRAU"bm32. 160" ¡PRINTtU, 

COLOR 15:DRAU"bm32, 180" ¡PRINTttl. 1 



Y nATEMAT I CAS. 
i BASIC riSX STANDARD " 



■ =INKEY*:I 



? A$ = "ir 



THEN RUN2560 EL SE IF A$ O " " THEN 5450 ELSE NEX 



?:L.OCATE 9,12: PRINT" GOOD BYE" :LOCATE 



de Listados ■ 



- 63 390 -159 
-206 400 -178 



- 58 250 -246 440 -218 

- 36 260 - 55 450 



■ 87- 280 -254 



610 - 85 
620 - 64 
630 -121 



- 26 320 -176 5: 
-121 330 -180 51_ 
) -196 340 -219 530 -131 



360 -195 550 -131 
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Por Rafael e Iñaki Requena ■ 



POKER 



Con este programa puedt 
tener una magnífica partida 
de poker contra el ordena- 
dor. El programa responde a 
jas diferentes posibilidades de 
juego. Tal vez algunos lecto- 
res prefieran agregarle los 
gráficos de las cartas. 



( EL POKER MSX-C 
* RAFA E IRAK 
t REQUENA 



="S" OR R 



• THEN CLS: GOTO 31 
' THEN 120 



110 IF R*="" THEN SO 
1 2ü SCREEN 3 : COLOK 2 , 1 , 1 : CLS 
130 QPEN'-QRP:" as #1 
140 PSET<0,0):PRINT #1 , "EL POKER" 
ISO FOR R=2 TO S : PSET C C R-2 >*36 , 75 ) 
T #1 ,CHR*H );CHR*(67) : COLOR R ! NEXT 
IPSETCO, 120) IPRINT #1 , " 




X :■<> B3.="T15003L4RGR02GRFRERGRGR03CRC02G 

026CR03C202B-2A2A-2GR0R03C02SC" 

240 C*="T1 5003L4RR1 RFR8L8EFF#GEFG4R8F4R 

4E4L4R2R1 RFRERRS0SCR804FSR8F2F8R8RR 1 RFR 

8L8EFF#GEF64R8F4E2R26R4é4R4R8FR4F4R4R8G 

R4F4R8F4E4ER" 

250 PLAY Pt.Q* 



3 NUMEROS NEGATIVO 



X=l TO 4: FOR I 



I1NEXT X 

=¡INT:PRINT "SE ESTAN BAR AJEANDO LA 
TAS" :print 

3=S:PRINT "NO APOSTAR MAS DE * 50. 
INT "TU TIENES *";P9:F0R R=l TO 15 



3 PRINT'.PRINT "COGERE MIS CARTAS" ¡PRI 

:> FOR X=l TO SISOSUB 1SS0:C(X)=C:CU'X 
3 : NEXT X 

3 GOSUB 1800:C:l=T:C2=H9:Pl=-5 

D PR INT " ABRE CON UNA APUESTA" INPUT 



MT<C(T*RNDC0)) + 1 > + ( ( H9 tKNIJ ■ ( .) .> ■- 
)><B-CB/10> THEN 740 
3+BIPRINT "ACEPTO" 

I ¡N . "o: :!,-,' o: IV, A :[ fui 

JT K9 : IF K9=0 THEN 520 
<=1 TO K9 

1 "CARTA NUMERO"; : INPUT T91G0SI 



j m<t.:o=c:mi<T9)=s:next X:For r 

3: NEXT R: CLS: GOSUB 1760 

3 wxm ! 730 : FOR X-1 TO SlTCMtX 

>)+l :C9CM1CX)>=C9<MKX>) + 1 

3 NEXT X! GOSUB Mo . Pl =1 : GOSUB 1 



> PfiiUT :PIUN1 "YO LLEVARE" i 19 ; "f 
18=H9 

. GOSUB 1 300 :C1=T: GOSUB 1 330 : CZ 
i B9=INT( (C 1 II NU' f' -i ' LSIRIMD' O 
| >< INTrA9/3 )+< .r.9-H8)*2>+7 

> B1=0:IF RND<0XC1*.S THEN SSC 
1 B9=99 . 99 

) PRINT:PRINT"CUANTO APUESTAS"; 
) IF B<0 THEN 910 



54 
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740 PRINT"N0 ACEPTO !!»: GOSUB 780 : QOTO 9 

7S0 PRINT "LLEVO! !l" : A9=A9+B : GOSUB 780: 

760 B1=INT<< (B9-A9>/3)*RND<0>)+2:A9=A9+ 

770 PRINT "SUBO *";B1:Q0T0 650 

780 PRINT: PRINT "TENSO " ¡ : T=C1 ¡ QOSUB 136 

« - et i ie i sao : print A " T " QRfiNDE DE ' ' c 

300 IT Pl = -E THEN 8.30 

810 PRINT ¡PRINT "TU TIENES ";:T=P1:S0SU 
820 PRINT 'jCON UNA CARTA GRANDE DE "; :C 




i 1 F HO 1 THEN 1350 
l-'EO PETURN 

1400 IF T<>2 THEN A 142¿ RETURN 

14 20 IF T . 3 THEN 1/140 

1430 PR i: NT "THREE OF A KIND" 1 RETURN 

1450 PRINT "STRAIGTH" : RETURN 
1460 IF TOS THEN 1430 
1470 PRINT"FLUSH" : RETURN 


350 IF CKP1 THEN 920 ELSE 910 

880 IF C2<P2 THEN 920 ELSE 910 

300 PRINF'LU UN EMPATE !!": GOTO 930 
910 PRINT "GANO $" ; A9 : P9=P9-A9 : GOTO 930 
' . PRIN1 "TU SANAS *" ; A9 : P9=P9+A9 
930 PRINT "OTRA VEZ? < 1 =SI ) " ; : INPU1 8:1 
F B=l THEN CLS:GOTO 350 
940 IF P9<0 THEN 980 
950 IF P3>=100 THEN 970 

960 PRINT "LLEVAS PERDIENDO *";100-P9:E 

970 PRINT "LLEVAS GANANDO *»;P9:END 
980 PRINT^ME DEBES-J ; -P9 : END 

10.- IF TU XI THEN 1020 

10S0 H9=I:IF IOl THEN 1070 
1060 1=14 




1480 IF TOE THEN 1500 

1490 PRINT"FULL HOUSE" : RETURN 

1500 IT T >7 THEN 1520 

1510 PRINT "FOUR OF A KIND"; RETURN 

1520 IF TOS THEN 1540 

1530 PRINT "'..IRA [01 H FLUOH" : RETURN 

540 PRIN1 "IíUVhL FLU5U' ! " : RETURN 
1550 S=INTC4*RND(X)>+1 : C=INT< 1 3*RND< X > > 

1530 ir i 1 THLN J 1600 
1590 PRINT "ACE"; : RETURN 
1600 IF COll THEN 1620 
1610 PRINT " JACK" ; : RETURN 
1320 IF C<: 12 THEN 1640 
1630 PRINT "QUEEN" ; : RETURN 
1340 IF C 13 THEN 1660 
1350 PRINT "KING" : : RETURN 
155 , ll c /l 1HEN 1680 


1070 Z=I-4 

loso 1 = 1-1 : if ti: i :><:. i then i 130 

1090 IF ZOI THEN 1080 

USO IF TCDOl THEN ? l" 170 
1 170 IF T=0 THEN 1 1 90 

1190 FOR 1=1 TO 13: IF TCI><>4 THEN 1210 




1740 PRINT " Dr DI AMÜNDS" : RETURN 
1750 PRINT " OF CLUBS" : RETURN 
1760 PRINT: PRINT "ESTA ES TU MANO :»: FOR 
X=l TO 5 

1770 C=M(X):S=M1(X):PRINT "CARTA" ; X ; "ES 
UN " ; : QOSUB r.: . .i 
1780 NEXT X : RETURN 

1790 FOR X=l TO 4 : C9t X >=0 : NEXT X : FOR X= 

i to 13:t(X)=o:next x:return 

1800 GOSUB 1790:F0R X=l TO 5 : T< CC X ) )=T< 

1810 C9(Cl(X))=C9CCl(X))tl :NEXTX:GOSUB 
990 : RETURN 


1210 IF TUX>3 THEN 1230 
1220 T=T+5:H9=I 
1230 IF TCI)<>2 THEN 1310 
1240 IF T=S THEN 1300 
1 ' r ' IF T --0 THEN 1270 

1270 IF H9=l THEN 1300 
1280 IF H3>I THEN 1300- 




T "************ POKER GANE t trrt i < t ¡ t t i 

1840 PRINT "EN ESTE JUEGO TU Y EL ORDEN 
ADOR JU- GAIS UNA PARTIDA DE POKER . " : P 

1850 PRINT "TENEIS * 100.00 PARA COMENZ 


1300 T=T+1 

1310 NEXT I : IF T OS THEN 1350 




AR LA PAR-TIDA ": PRINT 

1860 PRINT :PRINT"EL ORDENADOR ELI SE 5 C 
ARTAC AL AZAR . " 

1870 PRINT :PRINT"COMIENZAS CON UNA APUE 



Programa 1> ()1 - Eduardo Barambio. 





110 COLOR 15.1.1 

120 KEYOFF:CLS:PRINT:PRINT:PRINT 
130 PRINT"PARA DIBUJAR UTILIZA LOS MF 
S DE" :PRINT 

3 i PRINT"POSICIONAnlENTO DEL CURSOR :} A 

3 PRINT"LAS TECLAS DE FUNCION SIRUEN F 

=1 LO SIGUIENTE:" :PRINT 

3 PRINT" Fl PARA BORRAR LINEAS" 

3 PRINT" F2 PARA DIBUJAR" 

3 PRINT" F3 =COLOR AZUL 

3 PRINT" F4 =COLOR AMARILLO OSCURO" 

3 PRINT" F5 =COLOR BLANCO" 

3 PRINT" F6 =COLOR AMARILLO CLARO" 

3 PRINT" F7 =COLOR AZUL OSCURO" 

3 PRINT" F8 =COLOR ROJO CLARO" 

3 PRINT" F9 =COLOR UERDE" 

0 PRINT" F10=COLOR MAGENTA" 

260 PRINT: PRINT: PRINT: PRINT" PARA EMPE 

ZAR PULSAR UNA TECLA" 

270 IFINKEY*=""THEN270 

280 SCREEN2 

290 COLOR 15.1.1- 

300 PLAV " 06ABGFGF01 ACET25803ACDEB" 

X=127:Y=95:S=15 
320 ONKEYGOSUB570. .820.830.840.850.860.8 



70. 8Í 



3 KEYC 



.890 



380 KEYl 
390 KEYl 
400 KEYl 
410 KEYl 
420 D=S _ 



9Í0N 
10DON 

icKca: 

CX.Yl.S 



3 IFD=7THENX=X-1 : IF 

3 IFD=3THENX=X+1 :IF 

3 IFD=5THENY=Y+1 :IF 

3 IFD=1THENY=Y-1:IF 

3 IFD=2THENX=X+1 :Y= 

3 IFD=4THENX=X+1 :Y= 

3 IFD=6THENX -X-: :v=. 

3 IFD=8THENX=X-1 :Y= 

3 IFX>250THENX=250 

3 IFY<5THENY=5 

3 IFY>190THENY=190 

3 IFX<5THENX=5 

3 GOTO 420 

3 D=STICKC0D 



<5THENX=5 
>250THENX=250 
> 190THENY=190 
<5THENY-5 



3 ifd=5theny=y+: 
3 ifd=1theny=y-: 
3 psetcx.y: 

3 PSETCX+l, 
3 PSETCX+l. 



FD=2THENX=X+1 :Y=Y 
FD=4THENX=X+1 :Y=Y 
FD=6THENX=X-1 :Y=Y 
FD=8THENX=X-1 :Y=Y 
" :>250THENX=250 
<5THENY=5 
>190THENY=190 
:<5THENX=5 

GOTO 570 

S=7 :RETURN 

S=10:RETURN 

S=15:RETURN 

S=l 1 :RETURN 

S=4:RETURN 

S=9:RETURN 

S=2:RETURN 

S=13:RETURN 



: IFX<5THENX=5 
:IFX>250THENX=25( 
:IFY>190THENY=19( 
:IFY<5THENY=5 



Test de Listados» 



- 95 450 -140 590 - 



190 - 55 330 - 



60 - 58 200 -187 

70 - 58 210 -207 

80 - 58 220 - 37 

90 - 58 230 -186 

100 - 58 240 -134 

110-8? 250-53 

120 -241 260 -146 

- 32 270 -161 



-202 520 - 



530 - 34 670 - 50 
540 -142 680 - 49 
550 - 32 690 - 54 



!40-56 280 -2!6 420-54 560-60 700 



Programa ■ 



■ Por Ernesto Frigola Martorella 



CAVERNOUS 



Nuestro héroe tiene que 
avanzar por una peligrosa 
caverna y sortear numerosos 
peligros. Es un juego simple, 
pero destacamos la calidad de 
tos gráficos y la velocidad de 
ejecución. 




20 REM *** CAVERNOUS *** 

30 REM *** DE *** 

40 REM ***ERNEST0 FRIGOLA** 

60 REM *** PARA *** 

60 REM *** MSX-CLUB *** 

70 REM ******************** 

80 SCREEN2 , 2 ; COLOR 15,1,1: CLS 

90 DRAWBM65, 32D6R6D4E7H7D4L6" 

1 00 DRAW"BM56, 38L6D4H7E7D4R6D6" 

110 LINE<25, 10)-STEPC10, 10) ,6,BF 

120 DRAWBM20 , 2NR3D3R3D3L3BM25 , 2NR 

3D3ND3R3NU:I:D-:BI130 . 2EJ6R3B!-! ■ 

R2BM40, 2D6R3U6L3" 

1 30 DRAW" C 1 4BM200 , 08F 1 4R8E 1 4L35C 1 5 
BM1 96 , 1 3F1 4D8G1 4U35C 1 4BM200 , 54E1 4R 
8F14L35C15BM240 . 1 3G I 4 D3F 1 4U35C1 4C1 
5BM 1 20 , 50L2S 1 L 1 G 1 D7F 1 R 1 F 1 R2R60E 1 R 1 
E1U7H1L1H1L2L60" 

1 40 DRAW'BMl 35 , 40NR3D3R3D3L3BM1 40 , 
4 0NR [¡D3ND3R3NU3D3BM1 45 . 40D6R3BM1 49 

4 0R2NIJGR2BM ! 45 . 4CDGR3U6L3" 
1 50 L I NE C 0 , 70 ) - C 255 , 70 ) , 8 : L I NE < 1 05 
, 0 ) - C 1 05 , 70 ) , 8 : L INEf 0 , 80 ) - C 255 , 80 ) 
,8 



ÍSIPAINTC 120,53) , 15 
170 OPEN"grp:"AS#l 

180 PRESETC 10, 72) : PRINT#1 , "JOYSTIC 
K TECLADO" 

130 PLAY"vl5T21004L8CDL4ES":PLAY" 
GAGEC" 

200 PLAY" LSCDL4E" ! PLAY"EDCL2D . L8C 
DL4EG" 

210 PLAY" GAGEC" I PLAY"L8CDL4E" : PLA 



Y"ED" : PLAY"DL2C . R4 
220 PLAY"L2F" : PLAY" FL4A" ¡ PLAY" L2A 
" : PLAY"L4AG" : PLAY"GEC" 
230 PLAY"L2D. L3CDL4EG" ! F'LAY"GAGEC 

240 PLAY"L8CDL4E" : PLAY"ED" : PLAY"D 
L2C . " 

12120 



260 A=99:FORT=1T04 

27 0 PUTSPRITET, CA, 120), 

280 A=A+16:NEXTT 

290 REST0RL340: A2=86 

300 FTJRA1=2T015 

310 RE ADA* 

0 ■ III 0RA1 F RE ET ,1 I 



350 Q*=INKEY* : IFQÍOCHR* < 1 3 )THEN35 

0 

360 SC=0:NI=1 :LI=3 

370 SCREEN2 : CLS ; COLORI 5 , 1,1: CLS 
380 B*="C4BM1 30 . 301. :G2! _2G 1 L4D2F7D4 
G6D5G9D4G7F9D7F 1 D9F 1 D7F1 D ! 0E2U6E2U 
9E4U6E5U5D4U7F8R 1 E6U20H 



390 DRAWB* : F' AI NT ( 1 29, 31 ) , 4 

400 A*="C1 BM 1 33 . 43G7D5G8D5G7F6D4R1 

D5R1 U6R1 U7E6F4R7U2H8U8E4U9" 

410 DRAWA*:PAINT<131 ,48), 1 

420 D*="C4BM5, 1 1 0R4F7R4E8R2D2R2U2E 

3U25G5L7H7L4H5L2G5D37" 

430 DRAWD*:PAINTC7, 108), 4 

440 C*="C1BM10, 105R4E2R4E2RSE1R2E6 

U4E1 U5L8D1 L6U1 L5G4L1 H5D6F2D1 3" 



62 



450 DRAWC* : PAINTC 11,1 04 5 , 1 
460 LINE(0,134)-STEPC255,3>, 3,BF 
470 LINECO, 137)-(255, 192), 7, BF 
480 G*="C4BM10, 1 39ND1 3R4BF1 D4B61 L4 

)12BF1R3BE1U12" : DR 

1D1 3BF1 D4BF1 D2BF1 D 



490 G*="BM17, ' 



¡*="BM24, 13' 
Jl 3" : DRAWG* 
51 O G*="BM30 . I 39R2NR2D1 3" ! DRAWG* 
!0 G*="BM36, 1 40D1 1BF1R3BE1U1 1BH1L 

1 : drawg* 

:-':,,! ■!:;[- 1D5BQ1L3B 
Hl U2BM44 , 1 39R3BF 1 D2" : DRAWG* 

="BM120. 1 39R2NR2D1 3" : DRAWG* 
139R1NR1D13L1R2" : DRA 



550 G*="BM12S 
JG* 

>60 G*="BM130 

570 G*="BM137 
1U4BE1D13" : DRAWG* 



39NR5D6NR4D7R5" ! DRA 
¡F1D4BF1 ND4BE 



580 GS= 
: DRAWG* 

590 G*="BM1S0. 
L3" : DRAWG* 
600 A=99:F0RT=1TD4 
610 PUTSPR I TET, C A, 
620 A=A+16:NEXTT 

:7 , 20t 



39ND 1 3R4BF 1 D4BG1 !_■ 



R3BE1 Ul 1 BH1 



CLECO.O), 10 
IRCLECO.O),:: 
640 LINECO,* 



5;CIRCLE( 

•'■i 10,30) , 
INECO.O)- 



ineco.o: 

SO LIN£C20,23)-<20,47>, 15:CIRCLEC 
>,S0),3, 15: PAINTC 20,50) , 15:PSETC 1 
49), 1 :PSETC22,49) , 1 
¡O G*="C1 5BM ! 7 , E0L2S2D1 BM23, 50R2F 
II " : DRAWG* 

¡O G*="C1 1 BM32 , 0D2R1 D3R2D1 Rl D6R1 D 
;1 U4E3R2U4E2R4F2D4F1 D6F1 D7R1 1 E2U3 
El R2E 1 U4R3F2D4F2D2F 1 D9F 1 DSR1 ESM-5 , 
+9D5F 1 D9R 1 1 E 1 U9E 1 U 1 4E 1 U 1 1 E2U20" 
690 DRAW S* 

700 G*="BM98,0D2RIU JR2D 1 R 1 D6R1 D3R1 
'J4E3R2U4E2R4F204F1 D6F1 D7R1 1 E2U3E 1 R 
2E 1 U4R3F2D4F2D2F 1 D9F 1 DSR 1 E5M-5 , +9D 
5F1D9R1 1E1U9E1U14E1U1 1 E2U20" 
710 DRAWG* 

720 G*=" BM 1 6 4 . i >0 2R I D 3R2D 1 R 1 D6R 1 DSR 
1 U4E3R2U4E2R4F2D4F1 D6F1 D7R1 1 E2U3E1 
R2E 1 U4R3F2D4F2D2F 1 D9F 1 DSR 1 E5M-5 , +9 
D5F1D9R1 1E1U9E1U14E1U1 1E2U20" 
730 DRAWG* 

1 R3F2D4F2D6F3D9F2D7F 



0F3D1 1 d22f i 
) DRAW G* 



, 1 1 :PAINTC99,0), n : 
1 33R255BM0 , 1 29R6D1 R 



1 Ul R 1 OD 1 R3U1 R15F1R1F1R1E1 U 1 R30D2P2 

780 DRAWGÍIPAINTCO, 131 ),11 
790 A=10!A1=19:F0RT=1T0 3 
800 PUTSPR I TEA 1 , C A , 1 52 ) , 0 , 32 
310 A=A+20: A1=A1+1 :NEXTT 
820 A=4 

FÜRT=80T021 2STEP66 



840 A=A- 
850 í 
860 NEXTT 



; PUTSPR I TEA 
: PUTSPR I TEA 



):F0RT=53T0185STEPf.f. 



900 NEXTT 

91 O PUTSPRITE17, (5,100). 
920 PUTSPRITE1S, C5 
930 REM 
940 CÜL0R4 
950 ES=1 ;X=5:Y=100 

=23!X2=i i :si=i :X3=o:hd=7 

-ii ' ,i i lie 1 2 30 

970 QN NI G0SUB1570, 1500, 1590, 1600 
,1610,1 620 , 1 630 , 1 G40 , 1 650 , 1 660 , 1 67 
O 

980 LINEC49, 143)-C100, 160),7,BF:PR 
ESETC49, 143),7:PRINT#1 , SC. 
990 QN SPRITE G0SUB1680 
000 ON STRIG G0SUB1 890, 1890 

ÍPRITE DN 1 STR I G C O ) CJN : GTR I G C 1 ) 



C T . 60 :> , 

T , 76-) , 



11,6 



□N:S 



í)ON 



O GQSUB1360 
030 M0=STICKC0)0R8TICKC 1 ) 
040 IFM0=7THENX=X-3 ! H0=1 O ! 60TD1 08 

050 IFM0=3THENX=X+3 : H0=7 : G0TD1 080 
060 LINEC 1 56 , 1 43 ) - C 200 ,160), 7, BF: 
'PRE3ETC 156, 1 43 > , 7 : PRINTttl , INTCTIHE 

50) 

070 GOTO 1020 

080 IFX<5THENX=5 

090 IFX>=250THENG0T01 140 

100 IFH1=1THENH1=2ELSEH1=1 

1 10 PUTSPR I TE 1 7 , C X , Y ) , 1 4 , HO 

1 20 PUTSPR I TE 1 8 , C X , Y+ 1 6 ) , 8 , HO+H 1 

130 GOTO 1020 

140 BEEP 

150 I FN K9THENNI=NI + 1 : SC=SC + C 50*S 
)+100;G0T0790 

1 60 SPR I TEOFF : STR 16(0 > OFF ! STR I G C 1 
)OFF : Zl *="V1 5T1 0806L4CCD0SG 06C8DE 

E F E . D 8 C E 3 D 8 C O 5 Ü O 6 C D 8 K ! ;: ' j C J Q G G . F 3 E F 

FFF. E8DEL8FEDCL4E. F8GL1 2AGFL4EDCR4 
R4 R20" 

1 1 70 Z2*=" vi 5T1 0805L4EGAD . G8GGAAGB 
AFEDE . R8R4GGGG . G8GGGGG . G8GGL8AGFEL 
Al,, FSGR4GFER4R4 R20" 

1 180 Z3*="vl5T10804L4DEFG. A8B05C04 
AFGG*tAFG03GD.;C 0 :C! !-■:'[:■ ! CEG05C04CR403 
CB04DG03GR404C05CCC . 04A8EF3D8G03G0 
4C03GC R20" 



Programa ■ 



) PLAYZlt>,Z2í,Z3í 

1200 colori 5,4,4! screen3 : preset < 10 
, 1 00) : print#1 , "the end " 
ifplay(0)then1210 

ifli=otheimreturn 
a=io:ai=19:fort=itoli 
1250 putspritea1 , ca, 152), 15,7 

1260 A=A+20 : Al =A1 +1 : NEXTT 
1270 RETURN 
1280 REM 

1 290 PUTSPR I TE23 , C 1 65 ,70), 15, 14 
1300 RETURN 
1310 REM 

1320 PUTSPR ITE24, (240, 95 ) , 3 
1 330 RETURN 

1340 PUTSPRITEH4, CX4, Y4) ,11, 
1350 RETURN 
1360 IFES=0THEN1440 
1370 X3=X3+V1 :PUTSPRITEX2+1 , 
+X3+16) , 



XI , Yl 



1330 PUTSPR ITEX2, (XI ,Y1+X 
390 IFY1+X3; =98THEM1410 
400 GOTO 1540 
410 PUTSPRITEX2+1 , (XI ,Y1 
420 PUTSPRITEX2, (XI , Yl ) , 1 1 ,5 
430 ES=0: GOTO 1540 
440 AL=INTÍRNDC-TIME)*FA) 
450 IFALO1THEN1540 
1460 ES=1 :X3=-V1 : IFX<40THENG0SUB15 
20 : X 1 =53 : Yl =23 : X2-1 1 ! 60T01 540 
1 470 IFXÍ66 ! HF.NGÜSl '13 I 520 : X 1 =80 : Yl ■■ 
601X2=5: GOTO 1540 

' ■■• 

í:X2=13:G0T01540 

> I FX < 1 32THENG0SUB 1 520 : X 1 = 1 46 : ' 
i : X2=7 : 60T01 540 

) IFXil 71 THEMGOSUE 1 520 : X 1 =1 85 i ' 
'•: X2=15:G0T01540 

) I F X < 240THENG0SUB 1 520 I X 1 =2 1 2 ¡ 1 
¡: X2 3: GOTO 1540 

> S1=S1+1 
1530 RETURN 
1540 RETURN 

QW*=INKEY* : IFQW*=""THEN1 550 
SCREENOlLIST -89 
FA=80 I V 1 =4 ; RETURN 
1 5:30 FA= I O : V 1 =5 : RETURN 
1590 FA= 2: VI =6 ¡RETURN 

=7:X4=23:Y4=112:H4=2! 
IGÜSUBI 340 : RETURN 

161 O FA=15: VI =7: X4=10S: Y4=l 1 2 : H4=2 
6: GOSUB 1340: RETURN 

620 FA=15:V1=7:X4=165:Y4=1 1 2 : H4=: 
7 :GOSUB 1340: RETURN 
I 630 FA=1 5 : VI =7 : GOSUB 1310: RETURN 
1 640 FA= 1 5 : V 1 =7 : GOSUB 1 280 ; RETURN 



1650 FA=15:V1= 
1 660 F A= 1 5 : V 1 =7 : RETURN 
1670 FA=15:V1=7:RETURN 
1 680 SPRI.TEÜFF : 8TR1G¡. O )OFF : STRIGi 
)OFF 

1690 IFX>232THEN1850 

1700 LI=LI-1 : IFLK0THEMG0T01 760 

1710 PUTSPR I TE 1 7 , ( X , Y ) , O , 32 

1720 PUTSPR I TE 1 8 , C X , 1 12) , 15,7 

1730 PLAY"V1 5T 25003 AL2CL4DL2F . L4GA 

1740 PLAY"A" :PLAY"AL1 A" 
1 750 IFPLAY ( O ) THEM i 750ELSESC=SC+50 
*S1 : RETURN790 

1760 PUTSPR I TE 17, (X, Y), O, 32 
1770 PUTSPR I TE 1 3, ( X , 1 1 2 ) , 1 3 , 1 6 
1 780 PLAY"V1 5T20003AL2CL40L2F . L4GA 
1790 PLAY"A" :PLAY"AL1 A" 
1800 PLAY"L4AL2CL4DL2F" : PLAY"FL4DL 
2C.L1C" 

1 S 1 O PLAY" L4 AL2CL4DL2F . L4GA" 
1 820 PLAY" A" : PLAY" AL1 AL2C . L4AL2GAL 
1F" 

1830 PLAY"L2F. " 
1 840 F0RT=0T06000 I NEXTT ! RUN 
1850 SC=SC+1000 
1860 GOTO 1 140 
1 870 IFFU=1 THENSC=SC+600 : STOP : REMB 
BBBATENCIO GOTO. . A LINEA PER FINA 
LITZAR SALT CUAN TOCA ARANYA 
1880 GOTO 1700 

1890 STRIG(0)OFF:STRIG( 1 )OFF 
1 900 MO-ST I CK ( O ) ORST I CK ( 1 ) 
1910 X4=0:X5=0 

1920 IFM0=7THENX4=-1 : X5=-l :H0=10 

1930 IFM0=3THENX4=+1 : X5=+l : H0=7 

1 940 IFM0=0THENX4=0 : X5=0 

1950 X6=X:Y4=-2 

1 «SO GOSUB 1360 : X=X+X4 ; Y=Y+Y4 

1970 PUTSPR I TE 1 7 , ( X , Y ) , 1 4 , HO 

1330 PUTSPR ITE1 8, ( X , Y+l 6) , 8, HO+2 

1 990 ify=80then2000else1 960 
2000 y4=o:fort=itoio 
20 1 o gu3ub 1 360 : x = x + x4 : y=y+y4 
2020 putspr i te 1 7 , c x , y ) , 1 4 , ho 
2030 putspr i te 1 8 , ( x , y+ 1 6 ) , 8 , h0+ 1 

2040 NEXTT 
¡O Y4=+2 
2060 GOSUB I 360 : X=X+X5 : Y=Y+Y4 
2070 PUTSPR I TE 1 8 , < 
2080 PUTSPR I TE 1 7 , ( 
2090 I FY= 1 00 THEM2 i 00ELSE2060 
": 1 00 STR I G ( O ) ON : STR I G ( 1 ) ON 
:l 10 RETURN 1020 

120 RESTORE 21 90 : F0RT=1 T01 6 : F 
130 F0RI=1T032 

140 READ Y* : 0*=CHR* C VAL ( " Sh" +V 



320 PSETC69. 103 ¡COLORI :F 



3 PSETC69. 1753 :PRINT#1. "ANTOMIO 
3 FORI=1TO3000:NEXTI 



ANTONIO MILLAN 



0 CLS :SCREEN1 :KEY OFF :COLORl . 9, 9 

0 LOCATE 1 0. 2 :PRI NT "PAREJAS" :L0CATE12. 1 

PRINT"POR" :L0CATE7. 17 :PRINT"ANTONIO til 



05AB". 
XIACION DEL PROGRAHA* 



3 FORI=1TO10 
3 READ GCI3 
3 NEXTI 



=0:S=0 
:******** 
NSTRUCCIONES 



CLS:L0CATE1.5:PRINT"ELIGE DOS CARTAS 

INTRODUCIENDO" :LOCATEl 

" CORRESPONDIENTES" :L 
IN IGUALES GANAS" :LO 



"SINO, JUEGO YO" 

:PRINT" INSTRUCCIONES" :LOCAT 

" :LOCATE0. 18 :PRI 



20:PRINT"PULSA UNA TECLA" 

3 C*=INKEY$:IFC$=""THEN620 

3 CLS:L0CATE3. 15 : INPUT"EL IGE NIUEL Cl 

3 IF I<1 OR I>6 THEN 630 

3 FOR J=1T0I :T=T*2:NEXTJ:IF T>40 THEN 

3 SCREEN2.2:C0L0R15. 12 .12:CLS 

3 '* NUMEROS DE LA MESA * 



3 TO 



STEP 32 
240 STEP 32 
3 :PRINT#l,C:C=C-t 



'* BARAJAR CARTAS * 
790 FORI = lTO40:ACI3 = INTC:.'2+.53 :t1C 
FORI=1 T O40 



860 FORI=? T O240STED32 
870 FORJ=4TO140STEP32:SEEP 
880 LINÉCI. J3-CI+17. J+243.6.B C 
890 LINECI. J3-CI+17. J+243. l.B 
900 NEX T J, I :BEEP 

910 'm****ít**UÁA***A*AAÍ 



SEGUNDA " 
980 GOSUB1810 

4EN970 

■QRI=0TODL:NEX T : 



■S=28THEN1510 
:FZ=0THEN940 
GOSUB2240 



B=0 OR ACB3=0 THEN GOTO 1160 
i J=I + 1 TO T 
20 E=f1CJ3 

0 OR B=E OR ACE3=0THEN G0T0U5 



=19THEN 2380 
-ITCRNDC-TIME3*40+13 
ÍCB3=0THEN1200 

1=0 TO T 
1CI3=BTHEN GOTO 1200 



290 NEXTI 

ELIGE SEGUNDA CARTA * 



: DL:NEXT¡ ¡SCREEN0 :CLS :LOCA 
J PUNTUACION ES " :R 
10:°RINT'H PUNTUACION ES " 



Programa ■ 



D ARTIDA í S't 
•i GOTO 1622 



658 60T0 1620 



n :f=l-C*10 



i-24: . 



5.B! 



740 LINE CX. Y: 
750 LINECX+3.Y+33-CX+14.Y+21 3. 1+CX4.BF 
760 PRESETCX+6.Y+83 ¡PRINTttl . CHR*CGCF3 3 
770 RETURN 

780 ' XXXXXXXXXXXXXXXXXXXXXXX 
790 •* PIDE CARTA X 



810 L I NE C 20. 1 803 - C 1 20, 2503, 12, BF 
20. 1803 :PRINT#1.N*:"CARTA " : :B*= 
820 E$=INKEY*:IFE*=" ;, THEN1820 
830 IF E*-CHR*C133THEN1850 

" B*=B*+E*:°RINTE*¡ ¡GOTO1820 

IF E<1 Or'e>40 GOTO1810 



310 RETURN 

920 -xxxxxxxxxxxxxxxxxxxxxxx 

930 -X MUESTRA LAS CARTAS X 



950 FOR 1=1 TO DL:NEXT I 
960 N=B:L=ACB3-1 
970 GOSUB 1690 



2020 • 
2030 • 
2040 • 



} CB3=í 



2140 



2070 GOSUB 1690 
2080 N=E 
2090 GOSUB1690 
" .00 RETURN 

' XXXXXXXXXXXXXXXXXXXXXXX 
X RETIRA LAS CARTAS IGUALES * 



=icsD=e 



70 GOSUB 1690 

80 :f z=i then r=r+i 

Z=2 THEN S=S+! 



2200 Z=0:RETURN 
2210 • 

2220 'X RECUERDA LAS DOS ULTIMAS C 



22^0 
2240 

22'- y 

2260 

2270 NEXT I 

2280 nc~ 



■2THEN 2290 
=3 t 0 T 
=MCI3 



2430 
2450 GOTO' 



'.207.198.199.1 



:ge las dos ultimas cartas sob 



Test de Listados» 



■ Parejas» 



130 -208 
140 - 71 
150 -255 



COGE EL XPRESS 




